Index: /trunk/source/cocoa-ide/cocoa-listener.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 14536)
+++ /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 14537)
@@ -112,7 +112,9 @@
                 (t
                  (destructuring-bind (string package-name pathname offset) val
-                   ;; This env is used both for read and eval.  *nx-source-note-map* is for the latter.
-                   (let ((env (cons '(*loading-file-source-file* *loading-toplevel-location* ccl::*nx-source-note-map*)
-                                    (list pathname nil source-map))))
+                   ;; This env is used both for read and eval.
+                   (let ((env (cons '(*loading-file-source-file* *load-pathname* *load-truename* *loading-toplevel-location*
+				      ccl::*nx-source-note-map*)
+                                    (list pathname pathname (and pathname (or (probe-file pathname) pathname)) nil
+					  source-map))))
                      (when package-name
                        (push '*package* (car env))