         c4 (make-coll "PROV1" "et80" 24 35)
         all-colls [c1 c2 c3 c4]]
     (index/wait-until-indexed)
-    (let [sorted-colls (sort-by (juxt (comp string/lower-case :entry-title)
-                                      (comp string/lower-case :provider-id)) all-colls)]
+    (let [sorted-colls (sort-by (juxt (comp str/lower-case :entry-title)
+                                      (comp str/lower-case :provider-id)) all-colls)]
       (is (d/refs-match-order?
             sorted-colls
             (search/find-refs :collection {:page-size 20})))

(ns cmr.system-int-test.search.collection-sorting-search-test
  "Tests searching for collections using basic collection identifiers"
  (:require [clojure.test :refer :all]
            [clojure.string :as string]
            [cmr.system-int-test.utils.ingest-util :as ingest]
            [cmr.system-int-test.utils.search-util :as search]
            [cmr.system-int-test.utils.index-util :as index]

        c3 (make-coll-with-sn "Zebra")
        c4 (make-coll-with-sn "Schwartz")
        c5 (make-coll-with-sn "bob1")
        correct-sort [c2 c5 c1 c4 c3]]
    (index/wait-until-indexed)
    (is (sort-order-correct? correct-sort "short-name"))
