Index: /trunk/source/cocoa-ide/cocoa-editor.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 14428)
+++ /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 14429)
@@ -1802,5 +1802,9 @@
   "Return a pathname that STRING might designate."
   ;; We could get fancy here, but for now just be stupid.
-  (let ((pathname (ignore-errors (probe-file string))))
+  (let* ((rfs (ignore-errors (read-from-string string nil nil)))
+         (pathname (or (ignore-errors (probe-file string))
+                       (ignore-errors (probe-file rfs))
+                       (ignore-errors (probe-file (merge-pathnames *.lisp-pathname* string)))
+                       (ignore-errors (probe-file (merge-pathnames *.lisp-pathname* rfs))))))
     (if (and (pathnamep pathname)
              (not (directory-pathname-p pathname)))