diff --git a/hemlock/filecoms.lisp b/hemlock/filecoms.lisp
index d01066629eb2b3c68f2ca3537bf68e60df56a6c4..791cd162fd26aa6aa4f823ff06a00acc46bc19d4 100644
--- a/hemlock/filecoms.lisp
+++ b/hemlock/filecoms.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/filecoms.lisp,v 1.1.1.6 1991/04/25 20:28:41 chiles Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/filecoms.lisp,v 1.1.1.7 1991/06/22 13:54:06 chiles Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -275,8 +275,8 @@
       (unless (eq b buffer)
 	(let ((bpn (buffer-pathname b)))
 	  (when (equal bpn buffer-pn)
-	    (message "Buffer ~A also contains ~A."
-		     (buffer-name b) (namestring buffer-pn))
+	    (loud-message "Buffer ~A also contains ~A."
+			  (buffer-name b) (namestring buffer-pn))
 	    (return)))))))
 
 
@@ -286,15 +286,15 @@
 
 (defcommand "Revert File" (p)
   "Unless in Save Mode, reads in the last saved version of the file in
-  the current buffer. When in Save Mode, reads in the last checkpoint or
-  the last saved version, whichever is more recent. An argument will always
-  force Revert File to use the last saved version. In either case, if the
-  buffer has been modified and \"Revert File Confirm\" is true, then Revert
-  File will ask for confirmation beforehand. An attempt is made to maintain
-  the point's relative position."
+   the current buffer. When in Save Mode, reads in the last checkpoint or
+   the last saved version, whichever is more recent. An argument will always
+   force Revert File to use the last saved version. In either case, if the
+   buffer has been modified and \"Revert File Confirm\" is true, then Revert
+   File will ask for confirmation beforehand. An attempt is made to maintain
+   the point's relative position."
   "With an argument reverts to the last saved version of the file in the
-  current buffer. Without, reverts to the last checkpoint or last saved
-  version, whichever is more recent."
+   current buffer. Without, reverts to the last checkpoint or last saved
+   version, whichever is more recent."
   (let* ((buffer (current-buffer))
 	 (buffer-pn (buffer-pathname buffer))
 	 (point (current-point))
@@ -344,11 +344,11 @@
 
 (defcommand "Find File" (p &optional pathname)
   "Visit a file in its own buffer.
-  If the file is already in some buffer, select that buffer,
-  otherwise make a new buffer with the same name as the file and
-  read the file into it."
+   If the file is already in some buffer, select that buffer,
+   otherwise make a new buffer with the same name as the file and
+   read the file into it."
   "Make a buffer containing the file Pathname current, creating a buffer
-  if necessary.  The buffer is returned."
+   if necessary.  The buffer is returned."
   (declare (ignore p))
   (let* ((pn (or pathname
 		 (prompt-for-file