           label (label-of parent)]
       (if (empty? result)
         (log/warn (str "headed-phrases of parent: " label " is empty: " (get-in parent [:head]))))
-      (lazy-shuffle result))))
+      result)))
 
 (defn get-comp-phrases-of [parent cache]
   (let [result (:comp-phrases (get cache (get-in parent [:rule])))
         result (if (nil? result) (list) result)]
     (if (empty? result)
       (log/trace (str "comp-phrases of parent: " (label-of parent) " is empty.")))
-    (lazy-shuffle result)))
+    result))
 
 (defn overc-with-cache-1 [parent lex]
   (if (not (empty? lex))

   #?(:clj [clojure.tools.logging :as log])
   #?(:cljs [babel.logjs :as log]) 
   ;; TODO: be more specific in :refer than :all.
   [dag_unify.core :refer [fail? get-in label-of lazy-shuffle show-spec unifyc]]

   [babel.over :as over]))


        result (if (nil? result) (list) result)]
    (if (empty? result)
      (log/trace (str "parent-phrases for spec: " (show-spec spec) " is empty.")))
    result))

(defn get-head-phrases-of [parent cache]
  (if (= true (get-in parent [:head :phrasal] :true))
