diff --git a/src/core/CCRandom.ml b/src/core/CCRandom.ml
index 9116c2cf..c99c424c 100644
--- a/src/core/CCRandom.ml
+++ b/src/core/CCRandom.ml
@@ -114,7 +114,7 @@ let _diff_list ~last l =
    If we define, y_k = x_{k+1} - x_{k} for k in 0..(len-1), then by construction
    ∑_k y_k = ∑_k (x_{k+1} - x_k ) = x_{len} - x_0 = i. *)
 let split_list i ~len st =
-  if len <= 0 then invalid_arg "Random.split_list";
+  if len <= 1 then invalid_arg "Random.split_list";
   if i >= len then
     let xs = sample_without_replacement (len-1) (int_range 1 (i-1)) st in
     _diff_list ( 0::xs ) ~last:i
@@ -123,7 +123,7 @@ let split_list i ~len st =
 
 (*$Q
   Q.(pair small_int small_int) (fun (i,j) -> \
-    let len, n = 1+min i j, max i j in \
+    let len, n = 2+min i j, max i j in \
     let l = QCheck.Gen.generate1 (split_list n ~len) in \
     match l with None -> true | Some l -> l<> [] && List.for_all (fun x->x>0) l)
 *)
diff --git a/src/core/CCRandom.mli b/src/core/CCRandom.mli
index 0f203249..1e9c9142 100644
--- a/src/core/CCRandom.mli
+++ b/src/core/CCRandom.mli
@@ -105,7 +105,7 @@ val split_list : int -> len:int -> int list option t
 (** Split a value [n] into a list of values whose sum is [n]
     and whose length is [length]. The list is never empty and does not
     contain [0].
-    @raise Invalid_argument if [len <= 0]
+    @raise Invalid_argument if [len <= 1]
     @return [None] if the value is too small *)
 
 val retry : ?max:int -> 'a option t -> 'a option t