diff --git a/src/fifo_pool.ml b/src/fifo_pool.ml
index c4253c32..a4f03116 100644
--- a/src/fifo_pool.ml
+++ b/src/fifo_pool.ml
@@ -169,10 +169,11 @@ let create ?(on_init_thread = default_thread_init_exit_)
 
   runner
 
-let with_ ?on_init_thread ?on_exit_thread ?on_exn ?around_task ?num_threads () f
-    =
+let with_ ?on_init_thread ?on_exit_thread ?on_exn ?around_task ?num_threads
+    ?name () f =
   let pool =
-    create ?on_init_thread ?on_exit_thread ?on_exn ?around_task ?num_threads ()
+    create ?on_init_thread ?on_exit_thread ?on_exn ?around_task ?num_threads
+      ?name ()
   in
   let@ () = Fun.protect ~finally:(fun () -> shutdown pool) in
   f pool
diff --git a/src/ws_pool.ml b/src/ws_pool.ml
index cb87eeba..364aaa81 100644
--- a/src/ws_pool.ml
+++ b/src/ws_pool.ml
@@ -362,10 +362,11 @@ let create ?(on_init_thread = default_thread_init_exit_)
 
   runner
 
-let with_ ?on_init_thread ?on_exit_thread ?on_exn ?around_task ?num_threads () f
-    =
+let with_ ?on_init_thread ?on_exit_thread ?on_exn ?around_task ?num_threads
+    ?name () f =
   let pool =
-    create ?on_init_thread ?on_exit_thread ?on_exn ?around_task ?num_threads ()
+    create ?on_init_thread ?on_exit_thread ?on_exn ?around_task ?num_threads
+      ?name ()
   in
   let@ () = Fun.protect ~finally:(fun () -> shutdown pool) in
   f pool