          comp-paths
          (map #(let [spec (get-in bolt %)
                      lexemes (get-lexemes model spec)
-                     bolts-at (lightning-bolts
-                               model
-                               (get-in bolt %)
-                               depth max-depth)
+                     bolts-at (if (< depth max-depth)
+                                (lightning-bolts
+                                 model
+                                 (get-in bolt %)
+                                 depth max-depth))
                      lexemes-before-phrases
                      (lexemes-before-phrases depth max-depth)]
                  (log/trace (str "comp-paths-to-bolts-map:"

                    " 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
