                                    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))))))
                                (if is-fail? :fail result)))
                      

        (let [shuffled-candidate-lexical-complements (lazy-shuffle complement-candidate-lexemes)
              return-val
              (filter (fn [result]
                        (or true
                        (not (fail? result))))
                      (map (fn [complement]
                             (let [debug (log/debug (str "Trying complement:" (morph complement)))
                                   result

              (do
                (log/warn (str " add-complement took " run-time " msec, but found no lexical complements for "
                               (morph from-bolt) "(rule: " (:rule from-bolt) ")"
                               "; head rule:" (:rule (get-in from-bolt [:head]))
                               ". Complements tried were: " (morph complement-candidate-lexemes)))
                  
                ;; TODO: show warn about not finding any phrasal complements, as well as not finding any lexical complements.
                (log/debug (str " fail-paths:"))
                (vec (map (fn [lexeme]
                            (log/debug (str " path in bolt: " path))
                            (log/debug (str " value of bolt at path: " (get-in bolt path)))
                            (log/debug (str " value of gender at path: " (get-in bolt (concat path [:synsem :agr :gender])))))
                          complement-candidate-lexemes))))
            (do (log/debug (str "add-complement after adding complement: " (morph return-val)))
                return-val))))

      ;; path doesn't exist in bolt: simply return the bolt unmodified.
      (do
