 
 (defn truncate [input truncate-paths language-model]
   (log/debug (str "truncating@" truncate-paths ":" (show-bolt input language-model)))
-  (let [serialized (if (:serialized input)
-                     (:serialized input)
+  (let [serialized (if (:dag_unify.core/serialized input)
+                     (:dag_unify.core/serialized input)
                      (serialize input))
         paths-and-vals (rest serialized)
         path-sets (mapfn first paths-and-vals)

         (log/debug (str "overh: " (get-in parent [:rule]) " -> " (get-in head [:rule]
                                                                        (get-in head [:synsem :sem :pred]
                                                                                "(no pred for head)"))))
         (log/trace (str "overh successful result: " (strip-refs (dissoc result :serialized))))
         (list result))))))

;; Haskell-looking signature:

        #?(:clj (over (eval parents) child1 child2))

        true
        (let [parent (first parents)] ;; TODO: use recur
          (cond
            (nil? (get-in parent [:schema-symbol] nil))
            (throw (exception (str "no schema symbol for parent: " (:rule parent))))
