diff --git a/test/lwt/hash_client.ml b/test/lwt/hash_client.ml
index c8fad611..8d6db790 100644
--- a/test/lwt/hash_client.ml
+++ b/test/lwt/hash_client.ml
@@ -15,7 +15,7 @@ let main ~port ~runner ~dir ~n_conn () : unit Lwt.t =
   (* TODO: *)
   let run_task () : unit =
     let _sp = Trace.enter_manual_toplevel_span ~__FILE__ ~__LINE__ "run-task" in
-    M_lwt.TCP_client.with_connect' addr @@ fun ic oc ->
+    M_lwt.TCP_client.with_connect_lwt addr @@ fun ic oc ->
     let rec walk file : unit =
       if not (Sys.file_exists file) then
         ()
diff --git a/test/lwt/hash_server.ml b/test/lwt/hash_server.ml
index a259cdf5..9480be75 100644
--- a/test/lwt/hash_server.ml
+++ b/test/lwt/hash_server.ml
@@ -212,7 +212,7 @@ let main ~port ~runner () : unit Lwt.t =
   in
 
   let addr = Unix.ADDR_INET (Unix.inet_addr_any, port) in
-  let _server = M_lwt.TCP_server.establish' ~runner addr handle_client in
+  let _server = M_lwt.TCP_server.establish_lwt ~runner addr handle_client in
 
   lwt_fut