                                   (path-to-map path
                                                (copy complement)))]
                        (if truncate-children
-                         (truncate unified [path])
+                         (truncate unified [path] language-model)
                          unified)))
                   (let [debug (log/trace (str "add-complement-to-bolt(total-depth=" total-depth
                                               ",path=" path ",bolt=(" (show-bolt bolt language-model)

      (->
       (lightning-bolts language-model spec 0 total-depth :max-total-depth max-total-depth)
       (add-all-comps language-model total-depth true max-total-depth)
       (truncate-expressions [[:head]]))
      (->
       (lightning-bolts language-model spec 0 total-depth :max-total-depth max-total-depth)
       (add-all-comps language-model total-depth false max-total-depth)))))

                (rest path2))
      false)))

(defn truncate [input truncate-paths language-model]
  (log/info (str "truncating " (show-bolt input language-model) " with paths: " truncate-paths))
  (let [serialized (if (:serialized input)
                     (:serialized input)
                     (serialize input))
