               (filter (fn [result]
                         (not (fail? result)))
                       (map (fn [complement]
-                             (let [debug (log/debug (str "Trying complement:" (morph complement)))
+                             (let [debug (log/trace (str "Trying complement:" (morph complement)))
                                    result
                                    (unifyc bolt
                                            (path-to-map path

                        (let [result (over/overh parent (lazy-shuffle (get-lex parent :head index spec)) morph)]
                          (log/debug (str "results of attaching lexemes to: " (get-in parent [:rule]) ": (size=" (if result (.size result) "0") ")"
                                          (string/join ","
                                                       (map #(if morph (morph %1)
                                                                 "(string)")
                                                            result))))
                          result)))
                    candidate-parents)

                                          (string/join ","
                                           (map (fn [child]
                                                  (str "[" (:rule child) "]"
                                                       "'"

                                                       (try
                                                         (morph child)
                                                         (catch Exception e
                                                           "(exception caught)"))

                                                       "'"
                                                       ))
                                                phrasal-children))))
                          (over/overh parent phrasal-children morph)))
