         add-complements-to-bolts
         (fn [bolts path]
           (log/debug (str "generate-all: "
-                          "add-complements-to-bolts@" path ":#bolts(" (count bolts) "):"
-                          (string/join ","
-                                       (map (fn [bolt]
-                                              (show-bolt bolt path morph))
-                                            bolts))))
+                          "add-complements-to-bolts@" path ": first bolt:" 
+                          (show-bolt (first bolts) path morph)))
           (mapcat
            #(if (not (= :none (get-in % path :none)))
               (add-complement % path :top grammar lexicon index morph 0 (+ total-depth (count path)))

                        (if (= false (get-in parent [:head :phrasal] false))
                          (let [candidate-lexemes (get-lex parent :head index spec)
                                results (over/overh parent (mapfn copy candidate-lexemes))]
                            (log/debug (str "lightning-bolt: " (get-in parent [:rule]) ": candidate head lexemes:'"
                                            (string/join "','" (map morph candidate-lexemes)) "'"))
                            results)))
                      parents)
              phrasal ;; 2. generate list of all phrases where the head child of each parent is itself a phrase.

                                             complement-candidate-lexemes)
        debug (log/debug
               (if (not (empty? filtered-lexical-complements))
                 (str "add-complement: " (show-bolt bolt path morph) ":candidate first complement-lexemes:'"
                      (morph (first filtered-lexical-complements))) "'"))]
    (filter (fn [complement]
              (if (fail? complement)
                (do
