     (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 ")"))
+        (log/trace (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-info spec)))
      (log/debug (str "candidate-parents: " 
                    (string/join "," (map :rule result))
                    " for: " (spec-info spec))))

                   (concat lexemes bolts-at)
                   (concat bolts-at lexemes)))
              comp-paths))]
    (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
