                  (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])
+                 (log/trace (str "lightning-bolts: " (get-in parent [:rule])
                                  " : head lexeme candidates: "
                                  (string/join ","
                                               (map #((:morph language-model) %)

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

            (index-fn spec)
            (flatten (vals lexicon))))
        debug 
        (log/trace (str "lexical-complements (pre-over):"
                        (string/join ","
                                     (map #((:morph language-model) %)
                                          complement-candidate-lexemes))))
