diff --git a/src/core/tests/test_random.ml b/src/core/tests/test_random.ml
index 54058d12..a9551922 100644
--- a/src/core/tests/test_random.ml
+++ b/src/core/tests/test_random.ml
@@ -22,7 +22,7 @@ let uniformity_test ?(size_hint=10) k rng st =
   let confidence = 4. in
   let std = confidence *. (sqrt (kf *. variance)) in
   let predicate _key n acc =
-    let (<) (a : float) b = Stdlib.(<) a b in
+    let (<) (a : float) b = CCShims_.Stdlib.(<) a b in
     acc && abs_float (average -. float_of_int n) < std in
   Hashtbl.fold predicate histogram true