                            (lightning-bolt grammar lexicon each-spec depth index morph total-depth))
                          spec))
     (do
-      (log/debug (str "lightning-bolt(depth=" depth ", total-depth=" total-depth "): sem:" (strip-refs (get-in spec [:synsem :sem]))))
+      (log/trace (str "lightning-bolt(depth=" depth ", total-depth=" total-depth "): sem:" (strip-refs (get-in spec [:synsem :sem]))))
       (let [morph (if morph morph (fn [input] (get-in input [:rule] :default-morph-no-rule)))
             depth (if depth depth 0)        
             parents (filter #(not (fail? %)) (map (fn [rule] (unifyc spec rule)) grammar))]

            (lazy-cat phrasal lexical)))))))

(defn add-complement [bolt path spec grammar lexicon cache morph depth total-depth]
  (let [input-spec spec
        from-bolt bolt ;; so we can show what (add-complement) did to the input bolt, for logging.
        spec (unifyc spec (get-in bolt path))

                   (unify (copy bolt)
                          (path-to-map path
                                       (copy complement))))
                 (let [debug (log/trace (str "add-complement(depth=" depth ",total-depth=" total-depth
                                             ",path=" path ",bolt=(" (show-bolt bolt path morph)
                                             "): calling generate-all(" (strip-refs spec) ");"
                                             "input-spec: " input-spec))
