kmx.io/cl-thot

diff --git a/thot-threaded.lisp b/thot-threaded.lisp
index 98b2343..f2eaf5c 100644
--- a/thot-threaded.lisp
+++ b/thot-threaded.lisp
@@ -44,6 +44,8 @@
 
 (defun acceptor-loop-threaded (fd)
   (declare (type (unsigned-byte 31) fd))
+  (when (debug-p :thot)
+    (format t " ~A~%" *worker-thread-for-fd*))
   (set-nonblocking fd)
   (with-worker-threads (fd (1- *init-threads*))
     (funcall (funcall *worker-thread-for-fd* fd))))