Changes in HEAD
	Modified swank/commands/basic.clj
diff --git a/swank/commands/basic.clj b/swank/commands/basic.clj
index 7d3fc3f..3b162df 100644
--- a/swank/commands/basic.clj
+++ b/swank/commands/basic.clj
@@ -269,12 +269,16 @@
 
 (defslimefn find-definitions-for-emacs [name]
   (let [sym-name (read-from-string name)
+        sym-var (ns-resolve (maybe-ns *current-package*) sym-name)
+	meta (and sym-var (meta sym-var))]
+    (printf "file: %s\n" (slime-find-file-in-paths (:file meta) (slime-search-paths))))
+  (let [sym-name (read-from-string name)
         sym-var (ns-resolve (maybe-ns *current-package*) sym-name)]
     (when-let [meta (and sym-var (meta sym-var))]
-        (if-let [path (or (slime-find-file-in-paths (str (namespace-to-path (:ns meta))
-                                                         (.separator File)
-                                                         (:file meta)) (slime-search-paths))
-                          (slime-find-file-in-paths (:file meta) (slime-search-paths)))]
+      (if-let [path (or (slime-find-file-in-paths (:file meta) (slime-search-paths))
+			(slime-find-file-in-paths (str (namespace-to-path (:ns meta))
+						       (.separator File)
+						       (:file meta)) (slime-search-paths)))]
         `((~(str "(defn " (:name meta) ")")
            (:location
             ~path