Index: /trunk/ccl/level-1/l1-files.lisp
===================================================================
--- /trunk/ccl/level-1/l1-files.lisp	(revision 832)
+++ /trunk/ccl/level-1/l1-files.lisp	(revision 833)
@@ -980,5 +980,6 @@
 
 (defun find-load-file (file-name)
-  (let ((full-name (full-pathname file-name :no-error nil)))
+  (let ((full-name (full-pathname file-name :no-error nil))
+        (kind nil))
     (when full-name
       (let ((file-type (pathname-type full-name)))
@@ -997,6 +998,10 @@
                   (true-fasl
                    (values true-fasl fasl fasl))
-                  ((setq full-name (probe-file full-name))
-                   (values full-name file-name file-name)))))))))
+                  ((and (multiple-value-setq (full-name kind)
+                          (let* ((realpath (%realpath (native-translated-namestring full-name))))
+                            (if realpath
+                              (%probe-file-x realpath ))))
+                        (eq kind :file))
+                   (values full-name file-name file-name))))))))))