diff --git a/hemlock/dired.lisp b/hemlock/dired.lisp
index f7fcff8ca8c88418704d1e2080d58c1a6546f77f..88a8e63fc9c3ab61fcd6fd3aee33bdd284dfbb2d 100644
--- a/hemlock/dired.lisp
+++ b/hemlock/dired.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/dired.lisp,v 1.3 1994/10/31 04:50:12 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/dired.lisp,v 1.4 2000/07/06 08:25:15 dtc Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -611,23 +611,18 @@
     (unix:unix-fchmod fd (logand mode #o777))
     (unix:unix-close fd)))
 
-(defvar *utimes-buffer* (make-list 4 :initial-element 0))
-
 (defun set-write-date (ses-name secs)
   (multiple-value-bind (winp dev-or-err ino mode nlink uid gid rdev size atime)
 		       (unix:unix-stat ses-name)
     (declare (ignore ino mode nlink uid gid rdev size))
-    (unless winp (funcall *error-function*
-			  "Couldn't stat file ~S failed: ~A."  ses-name
-			  dev-or-err))
-    (setf (car *utimes-buffer*) atime)
-    (setf (caddr *utimes-buffer*) secs))
-  (multiple-value-bind (winp err)
-		       `(unix:unix-utimes ses-name ,@*utimes-buffer*)
     (unless winp
-      (funcall *error-function* "Couldn't set write date of file ~S: ~A"
-	       ses-name
-	       (unix:get-unix-error-msg err)))))
+      (funcall *error-function* "Couldn't stat file ~S failed: ~A."
+	       ses-name dev-or-err))
+    (multiple-value-bind (winp err)
+	(unix:unix-utimes ses-name atime 0 secs 0)
+      (unless winp
+	(funcall *error-function* "Couldn't set write date of file ~S: ~A"
+		 ses-name (unix:get-unix-error-msg err))))))
 
 (defun get-write-date (ses-name)
   (multiple-value-bind (winp dev-or-err ino mode nlink uid gid rdev size