         result (if (nil? result) (list) result)]
     (if (empty? result)
       (log/trace (str "parent-phrases for spec: " (show-spec spec) " is empty.")))
-    (lazy-shuffle result)))
+    result))
 
 (defn get-head-phrases-of [parent cache]
   (if (= true (get-in parent [:head :phrasal] :true))

   #?(: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]))


                                (= spec-val (get-in each [:synsem :sem :pred])))))
                        result)
                result)]
          result)))))
  
(defn get-parent-phrases-for-spec [cache spec]
  (log/trace (str "Looking up spec: " (show-spec spec)))
