diff --git a/test/t_fib_rec.ml b/test/t_fib_rec.ml
index de704f34..286e6aac 100644
--- a/test/t_fib_rec.ml
+++ b/test/t_fib_rec.ml
@@ -25,7 +25,7 @@ let () = assert (List.init 10 fib_direct = [ 1; 1; 2; 3; 5; 8; 13; 21; 34; 55 ])
 let fib_40 : int lazy_t =
   lazy
     (let@ _sp = Trace.with_span ~__FILE__ ~__LINE__ "fib40" in
-     let pool = Ws_pool.create ~min:8 () in
+     let pool = Fifo_pool.create ~min:8 () in
      let r = fib ~on:pool 40 |> Fut.wait_block_exn in
      Ws_pool.shutdown pool;
      r)