diff --git a/src/core/CCArray.ml b/src/core/CCArray.ml
index 3f4b0ec4..2fa87a7d 100644
--- a/src/core/CCArray.ml
+++ b/src/core/CCArray.ml
@@ -515,10 +515,10 @@ let shuffle_with st a =
 let rec _to_klist a i j () =
   if i=j then `Nil else `Cons (a.(i), _to_klist a (i+1) j)
 
-let random_choose a st =
+let random_choose a =
   let n = Array.length a in
   if n = 0 then raise Not_found;
-  a.(Random.State.int st n)
+  fun st -> a.(Random.State.int st n)
 
 let random_len n g st =
   Array.init n (fun _ -> g st)