                     (:lexicon language-model))
         from-bolt bolt ;; so we can show what (add-complement-to-bolt) did to the input bolt, for logging.
         spec (strip-refs (get-in bolt path))
-        debug (log/info (str "spec to find complement lexemes: " spec))
+        debug (log/debug (str "spec to find complement lexemes: " spec))
         complement-candidate-lexemes
         (if (not (= true (get-in bolt (concat path [:phrasal]))))
           (if-let [index-fn

                 (log/debug (str "lightning-bolts: " (get-in parent [:rule])
                                 " : (optimizeme) size of subset of candidate heads: "
                                 (count subset) " with spec: " (strip-refs spec)))
                 (log/debug (str "lightning-bolts: " (get-in parent [:rule])
                                 " : head lexeme candidates: "
                                 (string/join ","
                                              (map #((:morph language-model) %)

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