diff --git a/lib/sasacore/worstInit.ml b/lib/sasacore/worstInit.ml
index 9021b74aec19b01bba3c3dc8e43bbcb64611c2d0..93ee105a8b5e6fa179b9f98de5e55cc31b13d829 100644
--- a/lib/sasacore/worstInit.ml
+++ b/lib/sasacore/worstInit.ml
@@ -1,4 +1,4 @@
-(* Time-stamp: <modified the 14/04/2022 (at 17:20) by Erwan Jahier> *)
+(* Time-stamp: <modified the 19/04/2022 (at 15:20) by Erwan Jahier> *)
 
 open Register
 
@@ -221,7 +221,8 @@ let (fchc : out_channel -> ('v SimuState.t -> int) -> 'v SimuState.t -> int
             map_local_fold
               ~f: (fun p -> cost p, p)
               ~fold:(fun (cpt,nl) (c,p) ->
-                  let n_percent_done = cpt / (dmax / 100) in
+                  assert(dmax <> 0);
+                  let n_percent_done = if dmax < 100 then 1 else cpt / (dmax / 100) in
                   if n_percent_done <> !percent_done then (
                     percent_done := n_percent_done;
                     Printf.printf "%d%% of the %d simulations have been tryied so far...\r%!"
@@ -321,7 +322,7 @@ let (global : out_channel -> ('v SimuState.t -> int) -> 'v SimuState.t -> int
       else
         ss_worst, worst
     in
-    let n_percent_done = cpt / (dmax / 100) in
+    let n_percent_done = if dmax < 100 then 1 else cpt / (dmax / 100) in
     if n_percent_done <> !percent_done then (
       percent_done := n_percent_done;
       Printf.printf "%d%% of the %d simulations have been tryied so far...\r%!"