diff --git a/code/filesys.lisp b/code/filesys.lisp
index 2b53ddccacb1ab4659e7f6f692a19bf92756cfbb..f42fb0e727979c65d3b16afa857b9d7554957332 100644
--- a/code/filesys.lisp
+++ b/code/filesys.lisp
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.34 1993/08/04 09:37:47 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.35 1993/08/04 10:54:53 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -677,14 +677,11 @@
 ;;;
 (defun rename-file (file new-name)
   "Rename File to have the specified New-Name.  If file is a stream open to a
-  file, then the associated file is renamed.  If the file does not yet exist
-  then the file is created with the New-Name when the stream is closed."
+  file, then the associated file is renamed."
   (let* ((original (truename file))
 	 (original-namestring (unix-namestring original t))
 	 (new-name (merge-pathnames new-name original))
 	 (new-namestring (unix-namestring new-name nil)))
-    (unless original-namestring
-      (error "~S doesn't exist." file))
     (unless new-namestring
       (error "~S can't be created." new-name))
     (multiple-value-bind (res error)