diff --git a/thot-threaded.lisp b/thot-threaded.lisp
index 7ddc2ee..e3b6d10 100644
--- a/thot-threaded.lisp
+++ b/thot-threaded.lisp
@@ -47,7 +47,7 @@
(declare (type (unsigned-byte 31) fd))
(setq *stop* nil
*listen-fd* fd)
- (with-worker-threads *init-threads*
+ (with-worker-threads (1- *init-threads*)
(worker-thread)))
(when bordeaux-threads:*supports-threads-p*