                       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

      (->
       (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))
