diff --git a/knots/resource-pool.scm b/knots/resource-pool.scm
index b27f329..6b28a27 100644
--- a/knots/resource-pool.scm
+++ b/knots/resource-pool.scm
@@ -1317,8 +1317,9 @@ available.  Return the resource once PROC has returned."
                                            start-time)
                                      'timeout)
                                  response))
-                           'timeout)))))
-             (let loop ((reply (make-channel)))
+                           'timeout))
+                     'timeout)))
+             (let ((reply (make-channel)))
                (put-message channel
                             (list 'checkout
                                   reply