diff --git a/thread-pooling.lisp b/thread-pooling.lisp
index f26ebce45875f7ed32b285632e4f7b2bb2701e3a..94acdead40faa790f54faae27f4c5ba8595c88b6 100644
--- a/thread-pooling.lisp
+++ b/thread-pooling.lisp
@@ -231,7 +231,8 @@ implementations."))
      (error (condition)
        (let ((*acceptor* (taskmaster-acceptor taskmaster)))
          (log-message* *lisp-errors-log-level*
-                       "Error while creating worker thread: ~A" condition))))))
+                       "Error while creating worker thread: ~A" condition))))
+    (values worker-id channel)))
 
 (defgeneric dispatch-work (taskmaster))