   (flatten
    (mapfn (fn [bolt]
             (let [comps-map (comp-paths-to-bolts-map bolt model 0 max-total-depth)
-                  comp-paths (keys comps-map)
+                  comp-paths (find-comp-paths bolt)
                   comp-bolts (vals comps-map)]
               ;; filter by the following constraint:
               ;; that for every path that points to a complement of a bolt,

                                truncate-children max-total-depth top-level-spec]
  (log/debug (str "add-all-comps to bolts with paths to comps: "
                  (string/join "," comp-paths)))
                  
  (if (empty? comp-paths)
    bolts
    (add-all-comps-with-paths

              (index-fn spec)
              (flatten (vals
                        (or (:lexicon (:generate model)) (:lexicon model))))))))
  
(defn comp-paths-to-bolts-map
  "return a map between the set of all complements in the given _bolt_,and the lazy sequence of bolts for that spec."
  [bolt model depth max-depth]
