         from-bolt bolt ;; so we can show what (add-complement) did to the input bolt, for logging.
         bolt-spec (get-in bolt path :no-path)
         spec (unifyc spec bolt-spec)]
-    (log/debug (str "add-complement at path: " path " to bolt with bolt:["
+    (log/trace (str "add-complement at path: " path " to bolt with bolt:["
                     (if (map? bolt) (get-in bolt [:rule]))
                     " '" (morph bolt) "'"
                     "]"))

    (if (not (= bolt-spec :no-path)) ;; check if this bolt has this path in it.
      (let [immediate-parent (get-in bolt (butlast path))
            start-time (current-time)
            cached (if cache
                     (do
                       (let [result (get-lex immediate-parent :comp cache spec)]
                         (if (not (nil? result))


              ;; else, no complements could be added to this bolt: Throw an exception
              (let [message
                    (str " add-complement to " (get-in bolt [:rule]) " at path: " path " took " run-time " msec, but found no lexical complements for "
                         "'" (morph from-bolt) "'"
;                         ". Desired complement cat was: " (strip-refs (get-in bolt (concat path [:synsem :cat])))
                         ". Desired complement synsem/sem/pred was: " (strip-refs (get-in bolt (concat path [:synsem :sem :pred])))
;                         ". Head is:" (strip-refs (get-in bolt (concat (butlast path) [:head])))
                         ". Head notes:" (strip-refs (get-in bolt (concat (butlast path) [:head :notes])))
                         ". Complements tried were:"
                         (str " " (string/join "," (map morph (take 5 complement-candidate-lexemes))) ".. and "
                              (- (count complement-candidate-lexemes) 5) " more."))]
