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

                    (: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))
        complement-candidate-lexemes
        (if (not (= true (get-in bolt (concat path [:phrasal]))))
          (if-let [index-fn

                 (let [result (over/overh parent (lazy-shuffle subset))]
                   (log/debug (str "lightning-bolts: (optimizeme) surviving candidate heads: " (count result)))

                   (log/trace (str "lightning-bolts: surviving results: " 
                                   (string/join ","
                                                (map #((:morph language-model) %)
                                                     result))))
