Index: /trunk/ccl/level-1/l1-sysio.lisp
===================================================================
--- /trunk/ccl/level-1/l1-sysio.lisp	(revision 424)
+++ /trunk/ccl/level-1/l1-sysio.lisp	(revision 425)
@@ -471,6 +471,5 @@
 	  (delete-file original-name)))
       (setq *open-file-streams* (nremove s *open-file-streams*))
-      (call-next-method)
-      t)))
+      (call-next-method))))
 
 (defmethod select-stream-class ((class file-stream) in-p out-p char-p)