     (cons (vec (concat (butlast path) [:comp]))
           (find-comp-paths-in bolt (concat path [:head])))))
 
-(defn add-complement-to-bolt [bolt path spec language-model depth total-depth
+(defn add-complement-to-bolt [bolt path language-model depth total-depth
                               & {:keys [max-total-depth]
                                  :or {max-total-depth max-total-depth}}]
-  (log/trace (str "add-complement-to-bolt: start: " (show-bolt bolt path language-model) "@"
-                  (string/join " " path)))
+  (log/debug (str "add-complement-to-bolt: " (show-bolt bolt path language-model) "@"
+                  "[" (string/join " " path) "]" "^" total-depth))
   (let [index (:index language-model)
         lexicon (:lexicon language-model)
-        input-spec spec
         from-bolt bolt ;; so we can show what (add-complement-to-bolt) did to the input bolt, for logging.
-        spec (unifyc spec (get-in bolt path))
+        spec (get-in bolt path)
         immediate-parent (get-in bolt (butlast path))
         complement-candidate-lexemes
         (if (not (= true

        (log/warn (str "generate: no expression could be generated for spec:" (strip-refs spec))))
      expression)))

(declare add-complements-to-bolts)
(declare add-all-comps)
(declare candidate-parents)
(declare lazy-shuffle)
(declare find-comp-paths-in)
(declare add-all-comps-to-bolts)
(declare add-all-comps-to-bolts-with-paths)

(defn generate-all [spec language-model total-depth
                    & {:keys [max-total-depth truncate-children]

                  (let [debug (log/trace (str "add-complement-to-bolt(depth=" depth ",total-depth=" total-depth
                                              ",path=" path ",bolt=(" (show-bolt bolt path language-model)
                                              "): calling generate-all(" (strip-refs spec) ");"
                                              "spec: " spec))
                        phrasal-complements (if (and (> max-total-depth total-depth)
                                                     (= true (get-in spec [:phrasal] true)))
                                              (generate-all spec language-model (+ depth total-depth)
