 (defn tr-fn
   [inner-path [recent-trees src-map] template f]
   (fn [& args]
-    (let [this (-> @(produce-recent-tree-atom! #spy/d inner-path
+    (let [this (-> @(produce-recent-tree-atom! inner-path
                                                recent-trees)
-                   (merge #spy/d template)
+                   (merge template)
                    (assoc :args (vec args)
                           :arg-map (delay (zipmap (:arg-forms template)
                                                   args))

               (:x sub-src-map))]
    {:parent-path parent-path
     :name (if (seq? form)
              (first form)
              form)
     :form form
     :macro? macro?
     :inner-path path

  (let [src (-> qual-sym
                symbol
                util/hunt-down-source)
        traced-form (-> #spy/d src
                        macroexpand
                        get-fn
                        (xpand-fn* meta'))]
    (util/eval-in-ns (-> ns' str symbol)
                     traced-form)))

(defn ^{::trace/trace-type :deep-fn} composed-tracer-fn
  [m _]
