                                        (and (not-fail? (unify (get-in lexeme [:synsem] :top)
                                                               bolt-child-synsem))))
                                      complement-candidate-lexemes))]
-    (log/debug (str "lexical-complements (post-over):"
+    (log/trace (str "lexical-complements (post-over):"
                     (string/join ","
                                  (map #((:morph language-model) %)
                                       lexical-complements))))

  sequence of having added all possible complements at each node in
  the bolt."
  [bolts language-model total-depth truncate-children max-total-depth top-level-spec]
  (log/debug (str "add-all-comps: bolt count: " (count bolts)))
  (lazy-mapcat
   (fn [bolt]
     (log/debug (str "adding all comps to bolt: " (show-bolt bolt language-model)))

                     ;; and candidate head must be copied.
                     (log/warn (str "tried: " (count subset) " lexical candidates with spec:"
                                    (strip-refs spec) " and all of them failed as heads of parent:" (get-in parent [:rule]))))
                   (log/trace (str "returning bolts: count: " (count result)))
                   result)))
             (filter #(= false
                         (get-in % [:head :phrasal] false))
