                      
                            ;; lazy-sequence of phrasal complements to pass one-by-one to the above (map)'s function.
                            (do
-                             (log/debug (str "generating phrasal complements with spec: " (strip-refs spec)))
+                             (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 "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 "no phrasal complements of spec: " (strip-refs spec)
+                                   (log/warn (str "no phrasal complements of: " (:cat spec)
                                                   " could be generated."))))
                                                
                                (if (lexemes-before-phrases)

                                              (get-in parent [:head])
                                              (+ 1 depth)
                          (if (empty? phrasal-children)
                            (let [message (str "no phrasal children for parent: " (morph parent) "(rule=" (get-in parent [:rule]) ") and spec: " (strip-refs spec))]
                              (log/debug message))
                            ;; else; there are phrasal-children, so attach them below parent:
                            (do
                              (log/debug (str "phrasal-children:" (string/join "," (map morph phrasal-children))))
                              (log/debug (str "calling overh with parent: [" (get-in parent [:rule]) "]" "'" (morph parent) "'"
                                              " and " (count phrasal-children) " phrasal children."))
                              (over/overh parent phrasal-children morph)))
                          )

                                (log/warn (str "all " (count candidate-lexemes) " candidate lexeme(s):"
                                               (string/join ","
                                                            (sort (map morph candidate-lexemes)))
                                               " failed for parent: " (get-in parent [:rule])))))
                            result))))
                    (remove nil? candidate-heads))

