diff --git a/src/proto_alpha/lib_delegate/client_baking_forge.ml b/src/proto_alpha/lib_delegate/client_baking_forge.ml
index 0be91fb24..2bee95e75 100644
--- a/src/proto_alpha/lib_delegate/client_baking_forge.ml
+++ b/src/proto_alpha/lib_delegate/client_baking_forge.ml
@@ -661,7 +661,7 @@ let forge_block
 
   (* Now for some logging *)
   let total_op_count = List.length operations_arg in
-  let valid_op_count = List.length operations in
+  let valid_op_count = List.length (List.concat operations) in
   lwt_log_info Tag.DSL.(fun f ->
       f "Found %d valid operations (%d refused) for timestamp %a@.Computed fitness %a"
       -% t event "found_valid_operations"