diff --git a/src/proto_021_PsQuebec/lib_delegate/baking_scheduling.ml b/src/proto_021_PsQuebec/lib_delegate/baking_scheduling.ml
index 58c254fb6eed50c3f8b8fe2410eb36acb0b296ac..96520ee07136453ed65b0a0d87fa55f6107b08b2 100644
--- a/src/proto_021_PsQuebec/lib_delegate/baking_scheduling.ml
+++ b/src/proto_021_PsQuebec/lib_delegate/baking_scheduling.ml
@@ -550,9 +550,11 @@ let compute_next_timeout state : Baking_state.timeout_kind Lwt.t tzresult Lwt.t
     match round_proposer state ~level:`Current (snd next_round) with
     | Some _ ->
         let delta =
-          state.global_state.constants.parametric.minimal_block_delay
-          |> Period.to_seconds
-          |> fun d -> Int64.div d 5L
+          max
+            1L
+            ( state.global_state.constants.parametric.minimal_block_delay
+              |> Period.to_seconds
+            |> fun d -> Int64.div d 5L )
         in
         (* NB: this means 6 seconds delay, if the first round duration is
            30. *)
diff --git a/src/proto_alpha/lib_delegate/baking_scheduling.ml b/src/proto_alpha/lib_delegate/baking_scheduling.ml
index 0224854340e642a826b54cace6fc2efabc39abd4..4dd4e47590d99275f36673a7b5deff8c5152f0b6 100644
--- a/src/proto_alpha/lib_delegate/baking_scheduling.ml
+++ b/src/proto_alpha/lib_delegate/baking_scheduling.ml
@@ -553,9 +553,11 @@ let compute_next_timeout state : Baking_state.timeout_kind Lwt.t tzresult Lwt.t
     match round_proposer state ~level:`Current (snd next_round) with
     | Some _ ->
         let delta =
-          state.global_state.constants.parametric.minimal_block_delay
-          |> Period.to_seconds
-          |> fun d -> Int64.div d 5L
+          max
+            1L
+            ( state.global_state.constants.parametric.minimal_block_delay
+              |> Period.to_seconds
+            |> fun d -> Int64.div d 5L )
         in
         (* NB: this means 6 seconds delay, if the first round duration is
            30. *)