diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp
index 4c6236433db68219f46bc324ced854aa69c29904..d10f5053cddd17bfa0303c3e6765c192d9c3af14 100644
--- a/hemlock/rcs.lisp
+++ b/hemlock/rcs.lisp
@@ -1,6 +1,6 @@
 ;;; -*- Package: HEMLOCK; Mode: Lisp -*-
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.12 1990/03/03 00:49:54 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.13 1990/03/03 01:03:55 ch Exp $
 ;;;
 ;;; Various commands for dealing with RCS under Hemlock.
 ;;; 
@@ -131,7 +131,8 @@
 		(change-to-buffer log-buffer)
 		(do-recursive-edit)
 	  
-		(message "Checking in ~A ..." (namestring pathname))
+		(message "Checking in ~A~:[~; keeping the lock~] ..."
+			 (namestring pathname) keep-lock)
 		(let ((log-stream (make-hemlock-region-stream
 				   (buffer-region log-buffer))))
 		  (sub-check-in-file pathname keep-lock log-stream))
@@ -227,7 +228,7 @@
     check-out-count))
 
 (defun rcs-check-out-file (buffer pathname lock)
-  (message "Checking out ~A ..." (namestring pathname))
+  (message "Checking out ~A~:[~; with a lock~] ..." (namestring pathname) lock)
   (in-directory pathname
     (let ((backup
 	   (if (probe-file pathname)