def: improve defalias fidelity

1 files changed, 2 insertions, 2 deletions

diff --git a/src/clojure/contrib/def.clj b/src/clojure/contrib/def.clj
index 3537d1ad..54efe936 100644
--- a/src/clojure/contrib/def.clj
+++ b/src/clojure/contrib/def.clj
@@ -64,10 +64,10 @@
   as another with the exception of :namespace, :name, :file, :line, and
   optionally :doc which are those of new var."
   ([name orig]
-     `(let [v# (def ~name (var ~orig))]
+     `(let [v# (def ~name (. (var ~orig) (get)))]
         (. v# (setMeta (merge (meta (var ~orig)) (meta (var ~name)))))
         v#))
   ([name orig doc]
-     `(let [v# (def ~name (var ~orig))]
+     `(let [v# (def ~name (. (var ~orig) (get)))]
         (. v# (setMeta (merge (meta (var ~orig)) (assoc (meta (var ~name)) :doc ~doc))))
         v#)))