                                    is-fail? (fail? result)]
                                (if is-fail?
                                  (do
-                                   (log/debug (str "fail-path-between:" (fail-path-between (strip-refs (get-in bolt path))
+                                   (log/trace (str "fail-path-between:" (fail-path-between (strip-refs (get-in bolt path))
                                                                                            (strip-refs complement)))))
-                                 (log/debug (str "Success: returning: " (wrapped-morph morph complement))))
+                                 (log/trace (str "Success: returning: " (wrapped-morph morph complement))))
                                  
                                (if is-fail? :fail result)))
                      

              (do
                (log/warn (str " add-complement took " run-time " msec, but found no lexical complements for "
                               (wrapped-morph morph from-bolt)
;                               "(rule: " (get-in from-bolt [:rule]) ")"
;                               "; head rule:" (get-in from-bolt [:head :rule])
                               ". Complements tried were: " (morph complement-candidate-lexemes)))
                  
                ;; TODO: show warn about not finding any phrasal complements, as well as not finding any lexical complements.

                                                  (wrapped-morph morph lexeme))
                                                candidate-lexemes))))
                        (let [result (over/overh parent (lazy-shuffle (get-lex parent :head index spec)) morph)]
                          (log/debug
                           (str "parent: " (get-in parent [:rule]) " with head lexemes: "
                                (string/join ","
                                             (map #(wrapped-morph morph %1)
                                                  result))))
                          (if (empty? result)
                            (log/warn (str "failed to attach any head lexemes to: " (get-in parent [:rule])))

                            (log/debug (str "successful results of attaching head lexemes to: " (get-in parent [:rule]) ":"
                                            (string/join ","
