diff --git a/src/stdune/caml/dune_caml.ml b/src/stdune/caml/dune_caml.ml
index 50c661074bc..e0a3875dc9e 100644
--- a/src/stdune/caml/dune_caml.ml
+++ b/src/stdune/caml/dune_caml.ml
@@ -10,6 +10,7 @@ module Lexing   = Lexing
 module Digest   = Digest
 module StringLabels = StringLabels
 module ListLabels   = ListLabels
+module List   = List
 
 type ('a, 'error) result = ('a, 'error) Result.t =
   | Ok    of 'a
diff --git a/src/stdune/list.ml b/src/stdune/list.ml
index 8e1aea6436d..f20ad954dcd 100644
--- a/src/stdune/list.ml
+++ b/src/stdune/list.ml
@@ -112,7 +112,7 @@ let stable_sort t ~compare =
   stable_sort t ~cmp:(fun a b -> Ordering.to_int (compare a b))
 
 let sort_uniq t ~compare =
-  sort_uniq t ~cmp:(fun a b -> Ordering.to_int (compare a b))
+  Dune_caml.List.sort_uniq (fun a b -> Ordering.to_int (compare a b)) t
 
 let rec compare a b ~compare:f : Ordering.t =
   match a, b with