Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 6494)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 6495)
@@ -5443,5 +5443,7 @@
 (defun open (filename &key (direction :input)
                       (element-type 'base-char)
-                      (if-exists :error)
+                      (if-exists (if (eq (pathname-version filename) :newest)
+                                   :new-version
+                                   :error))
                       (if-does-not-exist (cond ((eq direction :probe)
                                                 nil)