diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp
index 71d21328530479a9b241f2ad3f0ccc51e76308b1..5a428634f8f0412bb5477242e134842dff19458e 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.26 1992/02/19 20:06:17 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.27 1992/12/06 15:52:19 wlott Exp $
 ;;;
 ;;; Various commands for dealing with RCS under Hemlock.
 ;;;
@@ -203,7 +203,7 @@
   (when (and lock *translate-file-names-before-locking*)
     (multiple-value-bind (unmatched-dir new-dirs file-name)
 			 (maybe-translate-definition-file pathname)
-      (when unmatched-dir
+      (when new-dirs
 	(let ((new-name (translate-definition-file unmatched-dir
 						   (car new-dirs)
 						   file-name)))