From 5cb2fd9d60fe9b9b0c1eca86b447388a5250a76c Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Sat, 3 Mar 1990 00:49:54 +0000
Subject: [PATCH] Trying to check this in again.

---
 hemlock/rcs.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp
index 5c2f15355..4c6236433 100644
--- a/hemlock/rcs.lisp
+++ b/hemlock/rcs.lisp
@@ -1,8 +1,8 @@
 ;;; -*- Package: HEMLOCK; Mode: Lisp -*-
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.11 1990/03/03 00:40:10 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.12 1990/03/03 00:49:54 ch Exp $
 ;;;
-;;; Various commands for dealing with RCS under hemlock.
+;;; Various commands for dealing with RCS under Hemlock.
 ;;; 
 (in-package "HEMLOCK")
 
@@ -149,7 +149,7 @@
     (in-directory pathname
       (do-command "rcsci" `(,@(if keep-lock '("-l"))
 			      "-u"
-			      ,(file-namestring pathname))
+			      ,filename)
 		  :input log-stream)
       ;; 
       ;; Set the times on the user's file to be equivalent to that of
-- 
GitLab