diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp
index fd74a539d78badb9851d0d24685edfb0907905a6..1381542bedc2e577ab5caed2ba71d688d1697b9b 100644
--- a/hemlock/rcs.lisp
+++ b/hemlock/rcs.lisp
@@ -1,6 +1,6 @@
 ;;; -*- Package: HEMLOCK -*-
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.3 1990/02/09 19:10:08 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.4 1990/02/09 21:08:09 wlott Exp $
 ;;;
 ;;; Various commands for dealing with RCS under hemlock.
 ;;; 
@@ -108,6 +108,7 @@
 		(message "Checking in ~A ..." (namestring pathname))
 		(in-directory pathname
 		  (do-command "rcsci" `(,@(if keep-lock '("-l"))
+					"-u"
 					,(file-namestring pathname))
 			      :input (make-hemlock-region-stream
 				      (buffer-region buffer))))