                                    (lazy-cat phrasal-complements shuffled-candidate-lexical-complements)))))))]
           (let [run-time (- (current-time) start-time)]
             (if (empty? return-val)
-
-              ;; else, no complements could be added to this bolt: Throw an exception
+              ;; else, no complements could be added to this bolt: Throw an exception or log/warn. debateable about which to do
+              ;; in which circumstances.
               (let [log-limit 1000
                     log-fn (fn [message] (log/warn message))
                     throw-exception-if-no-complements-found false

                                                        (copy complement)))
                                   is-fail? (fail? result)]
                               (if is-fail?
                                 (log/debug (str "fail-path-between(bolt=val1/comp=val2):"
                                                 (fail-path-between (strip-refs (get-in bolt path))
                                                                    (strip-refs complement))))
                                                                                
                                 (log/debug (str "success:" (:rule result) " returning: '" (morph result) "'")))
                                 
                               (if is-fail? :fail result)))
                     

                             (log/debug (str "generating phrasal complements with cat: " (get-in spec [:synsem :cat])))
                             (let [phrasal-complements (generate-all spec grammar lexicon cache morph)]
                               (if (not (empty? phrasal-complements))
                                 (log/debug (str "add-complement: phrasal complements were not empty; first: "
                                                 (get-in (first phrasal-complements) [:rule])))
                                 ;; phrasal complements were empty.
                                 (if (= true (get-in spec [:phrasal] false))
                                   (log/warn (str "add-complement: no phrasal complements of: " (:cat spec)
                                                  " could be generated."))))
                                               
                               (if (lexemes-before-phrases depth)
                                 (lazy-cat shuffled-candidate-lexical-complements phrasal-complements)
                                 (do
                                   (if (not (empty? phrasal-complements))
