               (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/trace
                           (str "parent: " (get-in parent [:rule]) " with lexemes: "
                                (string/join ","
                                             (map #(wrapped-morph morph %1)
                                                  result))))
                          (if (empty? result)
                            (log/warn (str "failed to attach any lexemes to: " (get-in parent [:rule])))

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

        bolt-spec (get-in bolt path :no-path)
        spec (unifyc spec bolt-spec)
        lexicon (if (future? lexicon) @lexicon lexicon)]
    
    (if (not (= :none (get-in bolt [:head :head :subcat] :none)))
      (let [message (str "BAD BOLT RESULT: " (get-in bolt [:head :head :subcat] :none))]
        (log/error message)
        (throw (Exception. message))))
    
    (log/debug (str "add-complement to bolt with bolt:["
                    (if (map? bolt) (get-in bolt [:rule]))
                    " '" (wrapped-morph morph bolt) "'"
