                       path-vals))]
     (deserialize truncated-serialized)))
 
-(defn truncate-expressions [expressions truncate-paths]
-  (map #(truncate % truncate-paths)
+(defn truncate-expressions [expressions truncate-paths language-model]
+  (map #(truncate % truncate-paths language-model)
        expressions))
 
 ;; Thanks to http://clojurian.blogspot.com.br/2012/11/beware-of-mapcat.html

                                  (path-to-map path
                                               (copy complement)))]
                       (if truncate-children
                         (truncate unified [path])
                         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]] language-model))
      (->
       (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)))))
