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

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

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

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