diff --git a/tezt/lib_cloud/cloud.ml b/tezt/lib_cloud/cloud.ml
index 5d90f09d0c8d016f1cf65254a1dc708c5c7e86bd..21c3511984ab242407413ea6b44bfe1fa6565832 100644
--- a/tezt/lib_cloud/cloud.ml
+++ b/tezt/lib_cloud/cloud.ml
@@ -55,7 +55,7 @@ let shutdown ?exn t =
   in
   (* Shutdown the service managers before alert_manager *)
   let* () =
-    Lwt_list.iter_s
+    Lwt_list.iter_p
       (fun agent ->
         match Agent.service_manager agent with
         | None -> Lwt.return_unit
diff --git a/tezt/lib_tezos/teztale.ml b/tezt/lib_tezos/teztale.ml
index 0d4c0d30abd030cb18113f99b8e6ad838cd6b99f..c627c2b16c4b44d51ea5439412697029851bb6f0 100644
--- a/tezt/lib_tezos/teztale.ml
+++ b/tezt/lib_tezos/teztale.ml
@@ -52,6 +52,7 @@ module Server = struct
     let pp_interface fmt {address; port} =
       Format.fprintf fmt {|{"address": "%s", "port": %d}|} address port
     in
+    let max_batch_size = Int32.max_int in
     let pp_public_directory fmt public_directory =
       match public_directory with
       | None -> Format.fprintf fmt ""
@@ -67,6 +68,7 @@ module Server = struct
   "interfaces": [%a],
   "users": [%a],
   "admins": [%a],
+  "max_batch_size": %ld,
   "with_transaction": "FULL",
   "verbosity": "INFO"%a
 }|}
@@ -77,6 +79,7 @@ module Server = struct
         conf.users
         pp_login
         conf.admin
+        max_batch_size
         pp_public_directory
         conf.public_directory
     in