diff --git a/otherlibs/stdune/src/array.ml b/otherlibs/stdune/src/array.ml
index 3a293e03ded..625d6b4f4a7 100644
--- a/otherlibs/stdune/src/array.ml
+++ b/otherlibs/stdune/src/array.ml
@@ -5,7 +5,7 @@ include struct
 
   [@@@ocaml.warning "-32"]
 
-  let find_opt t ~f =
+  let find_opt ~f t =
     try
       for i = 0 to Array.length t do
         if f t.(i) then raise_notrace (Found i)