               path
               '$$
               `'~template
-              head)
+              (first form))
         (rest form)))
 
 (defn xpand-macro-form

    (let [new-grandparent (produce-recent-parent-tree-atom! inner-path
                                                            recent-trees)
          new-parent (-> (trace/mk-tree :parent new-grandparent)
                         (assoc :inner-path inner-path)
                         atom)]
      (assoc-to-recent-trees! new-parent
                              new-grandparent

    #spy/d tree-atom
    #spy/d parent-tree-atom
    (println "^^^^^")
    (clojure.stacktrace/print-stack-trace (Exception. "assoc-to-recent-trees!"))
    (swap! (-> @parent-tree-atom
               :inner-path
               (@recent-trees)
