             (do (log/warn (str "add-complement-to-bolt: no index-fn for model:" (:name language-model) ": using entire lexicon."))
                 (flatten (vals lexicon)))))
         debug 
-        (log/debug (str "lexical-complements (pre-over):"
+        (log/trace (str "lexical-complements (pre-over):"
                         (string/join ","
                                      (map #((:morph language-model) %)
                                           complement-candidate-lexemes))))

                     ;; 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/debug (str "returning bolts: count: " (count result)))
                   result)))
             (filter #(= false
                         (get-in % [:head :phrasal] false))

             (not (= true (get-in bolt (concat path [:phrasal]))))
             (:index-fn language-model))
          ((:index-fn language-model) spec))
        debug (log/trace (str "lexical complements: (pre unify) for bolt: " (show-bolt bolt language-model)
                              " at path="  path ":" (count complement-candidate-lexemes) ":"
                              (string/join ","
                                           (map #((:morph language-model) %)
