                                                              (+ 1 depth) index morph (+ 1 total-depth))))
                         parents))]
           (if (lexemes-before-phrases total-depth)
-            (lazy-cat lexical phrasal)
-            (lazy-cat phrasal lexical)))))))
+            (concat lexical phrasal)
+            (concat phrasal lexical)))))))
 
 (defn add-complement [bolt path spec grammar lexicon cache morph depth total-depth]
   (log/info (str "add-complement: " (show-bolt bolt path morph)))

                                                    (get-in child-in-bolt [:synsem] :top)))))))
        filtered-lexical-complements (filter (fn [lexeme]
                                               (complement-pre-check lexeme bolt path))
                                             complement-candidate-lexemes)
        shuffled-candidate-lexical-complements (lazy-shuffle filtered-lexical-complements)]
    (filter (fn [complement]
              (if (fail? complement)
                (do

                                              "): calling generate-all(" (strip-refs spec) ");"
                                              "input-spec: " input-spec))
                        phrasal-complements (if (> max-total-depth total-depth)
                                              (lazy-seq (generate-all spec grammar lexicon cache morph (+ depth total-depth))))]
                    (if (lexemes-before-phrases total-depth)
                      (lazy-cat filtered-lexical-complements phrasal-complements)
                      (lazy-cat phrasal-complements filtered-lexical-complements)))))))
