diff --git a/hemlock/eval-server.lisp b/hemlock/eval-server.lisp
index 790528b7a30fc6b04a5ba4c4d48a473b398d1fed..7231ebbdec8bc903d48a7e3820480d5140fa7db2 100644
--- a/hemlock/eval-server.lisp
+++ b/hemlock/eval-server.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/eval-server.lisp,v 1.1.1.12 1991/10/12 21:05:37 chiles Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/eval-server.lisp,v 1.1.1.13 1992/02/15 01:05:57 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -151,7 +151,7 @@
   (when (server-info-wire server)
     (let ((fd (wire:wire-fd (server-info-wire server))))
       (system:invalidate-descriptor fd)
-      (mach:unix-close fd))
+      (unix:unix-close fd))
     (setf (server-info-wire server) nil))
   (when (server-info-slave-info server)
     (ts-buffer-wire-died (server-info-slave-info server))
diff --git a/hemlock/lispeval.lisp b/hemlock/lispeval.lisp
index 7bec7f5857973b9b5d5f5cb07a3b1046d81ff6bb..7b8ad25c5ef4bb3ebe59053e606dcf98a8ab7b98 100644
--- a/hemlock/lispeval.lisp
+++ b/hemlock/lispeval.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.9 1992/01/14 14:25:49 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.10 1992/02/15 01:06:05 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -243,7 +243,7 @@
 	  (let ((new-name (make-pathname :type "fasl"
 					 :defaults (note-input-file note))))
 	    (rename-file file new-name)
-	    (mach:unix-chmod (namestring new-name) #o644))
+	    (unix:unix-chmod (namestring new-name) #o644))
 	  (delete-file file)))
     (maybe-send-next-note server))
   (values))
@@ -422,13 +422,13 @@
 				file)))
 		       (unless (probe-file f) (return f))))))
     (multiple-value-bind (fd err)
-			 (mach:unix-open (namestring ofile)
-					 mach:o_creat #o666)
+			 (unix:unix-open (namestring ofile)
+					 unix:o_creat #o666)
       (unless fd
 	(editor-error "Couldn't create compiler temporary output file:~%~
-	~A" (mach:get-unix-error-msg err)))
-      (mach:unix-fchmod fd #o666)
-      (mach:unix-close fd))
+	~A" (unix:get-unix-error-msg err)))
+      (unix:unix-fchmod fd #o666)
+      (unix:unix-close fd))
     (let ((net-ofile (pathname-for-remote-access ofile)))
       (values (make-pathname :directory (pathname-directory net-ofile)
 			     :defaults file)