                                       (not-fail? (unify (strip-refs (get-in lexeme [:synsem] :top))
                                                         bolt-child-synsem)))
                                     complement-candidate-lexemes)]
-    (log/debug (str "lexical complements: (post unify) for bolt: " (show-bolt bolt language-model)
+    (log/trace (str "lexical complements: (post unify) for bolt: " (show-bolt bolt language-model)
                     " at path="  path ":" (count lexical-complements) ":"
                     (string/join ","
                                  (map #((:morph language-model) %)

                                                     
                 (log/trace (str "trying overh with parent: " (:rule parent) " and head constraints: " (get-in parent [:head])))
                 (let [result (over/overh parent (lazy-shuffle subset))]
                   (if (not (empty? subset))
                     (log/debug (str "lightning-bolts:  surviving candidate heads: " (count subset) " -(unify)-> " (count result))))

                   (log/trace (str "lightning-bolts: surviving results: " 
                                   (string/join ","

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