                    (concat lexemes bolts-at)
                    (concat bolts-at lexemes)))
               comp-paths))]
-    (log/debug
-     (str "comp-paths-to-bolts-map:"
-          (show-bolt bolt model) "(" depth "/" max-depth ")" ":"
-          (string/join ";"
-                       (map #(str "path:" % ":" (string/join "," (map (fn [bolt] (show-bolt bolt model))
-                                                                      (get result %))))
-                            (sort (keys result))))))
+    (doall (map #(log/debug 
+                  (str "comp-paths-to-bolt-map: " (show-bolt bolt model) "@:" % ":"
+                       (string/join "," (map (fn [bolt] (show-bolt bolt model))
+                                             (get result %)))))
+                (sort (keys result))))
     result))
 
 (defn add-comps

    (if (> max-total-depth 0)
      (let [prob (- 1.0 (/ (- max-total-depth depth)
                           max-total-depth))]
        (log/debug (str "P(c," depth ") = " prob " (c: probability of choosing lexemes rather than phrases given depth " depth ")"))
        (> (* 10 prob) (rand-int 10)))
      false)))


                    " for spec: " (strip-refs spec)))
    (if (empty? result)
      (log/debug (str "candidate-parents: " 
                      "no parents found for spec: " spec))
      (log/debug (str "candidate-parents: " 
                    (string/join "," (map :rule result))
                    " for: " (spec-info spec))))
