Changes in HEAD
	Modified swank/commands/basic.clj
diff --git a/swank/commands/basic.clj b/swank/commands/basic.clj
index 7d3fc3f..ac0736f 100644
--- a/swank/commands/basic.clj
+++ b/swank/commands/basic.clj
@@ -271,10 +271,10 @@
   (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