   (when (not (= :fail bolt))
     (do
       (if (not (empty? comp-paths))
-        (log/debug (str "add-comps: " ((:morph-ps model) bolt) ": comp-paths:" (string/join "," comp-paths))))
+        (log/trace (str "add-comps: " ((:morph-ps model) bolt) ": comp-paths:" (string/join "," comp-paths))))
       (lazy-seq
        (let [top-bolt (or top-bolt bolt)
              truncate? (if (= truncate? false)

  (mapfn #(do-defaults % model)
         (let [comp-paths (find-comp-paths bolt-at)
               comp-bolts
               (mapfn #(comp-path-to-bolts bolt-at % model (+ 1 depth) max-depth)
                      comp-paths)]
           (log/debug (str "add-bolt-at:" ((:morph-ps model) bolt-at) "; comp-paths: " (string/join "," comp-paths)))
           (when (not (some empty? comp-bolts))
             (take take-n
                   (filter #(not (= :fail %))

                                     assoc)
                                  (filter (fn [with-comps]
                                            (do
                                              (log/debug (str "add-bolt-at: added all comps to bolt: '" ((:morph model)
                                                                                                         with-comps)
                                                              "'"))
                                              with-comps))
                                          (add-comps bolt-at
                                                     model
                                                     comp-paths
