                                                        ))
                                                 phrasal-children))))
                           (if (empty? phrasal-children)
-                            (let [message (str "no phrasal children for for parent: " (morph parent) "(rule=" (get-in parent [:rule]) ")" )]
+                            (let [message (str "no phrasal children for parent: " (morph parent) "(rule=" (get-in parent [:rule]) ")" )]
                               (log/debug message))
                             ;; else; there are phrasal-children, so attach them below parent:
-                            (over/overh parent phrasal-children morph))))
+                            (do
+                              (log/debug (str "phrasal-children:" (map morph phrasal-children)))
+                              (over/overh parent phrasal-children morph)))
+                          )
+                        )
                        candidate-parents))]
         (if (= (rand-int 2) 0)
           (lazy-cat lexical phrasal)

                              (lightning-bolt grammar lexicon
                                              (get-in parent [:head])
                                              (+ 1 depth)
                                              index parent morph)
                              phrasal-children phrasal-children
                              ]
                          (log/debug (str "calling overh with parent: [" (get-in parent [:rule]) "]" "'" (morph parent) "'"
                                          " and children: "
                                          (if phrasal-children

        
        debug (if (not (empty? candidate-parents))
                (log/debug (str "candidate-parents: " (string/join "," (map #(get-in % [:rule])
                                                                            candidate-parents))))
                (log/warn (str "candidate-parents are empty!")))]
    ;; TODO: remove or parameterize this hard-coded value.
    (if (> depth 5)
      (throw (exception (str "DEPTH IS GREATER THAN 5; HOW DID YOU END UP IN THIS TERRIBLE SITUATION? LOOK AT THE STACK. I'M OUTTA HERE."))))
