                                                        ))
                                                 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)

              (filter (fn [result]
                        (not (fail? result)))
                      (map (fn [complement]
                             (let [debug (log/debug (str "["
                                                         (get-in bolt [:rule]) " "
                                                         (morph bolt) "]: trying lexical complement:" (morph complement)
                                                         ))

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