 
                           lexemes-before-phrases
                           (take max-generated-complements
-                                (lazy-cat filtered-lexical-complements phrasal-complements))
+                                (lazy-cat lexical-complements phrasal-complements))
                           true
                           (do
                             (log/trace (str "successfully generated some complements for bolt:"

                          (log/warn (str "failed to generate any phrasal complements with spec: "
                                         (strip-refs spec)))

                          (and (empty? filtered-lexical-complements)
                               (empty? phrasal-complements))

                          (let [message (str "add-complement-to-bolt: could generate neither phrasal "

                                            " matching spec:"
                                            (spec-info spec)))

                            (take max-generated-complements (lazy-cat phrasal-complements lexical-complements)))))))))

(defn candidate-parents [rules spec]
  "find subset of _rules_ for which each member unifies successfully with _spec_"
