Index: /trunk/ccl/level-1/l1-files.lisp
===================================================================
--- /trunk/ccl/level-1/l1-files.lisp	(revision 844)
+++ /trunk/ccl/level-1/l1-files.lisp	(revision 845)
@@ -1003,5 +1003,5 @@
                               (%probe-file-x realpath ))))
                         (eq kind :file))
-                   (values full-name file-name file-name))))))))))
+                   (values full-name file-name file-name)))))))))