diff --git a/libs/cyclone/concurrent.sld b/libs/cyclone/concurrent.sld
index 13837836..ef5b9760 100644
--- a/libs/cyclone/concurrent.sld
+++ b/libs/cyclone/concurrent.sld
@@ -508,7 +508,7 @@
         ))))
 
 (define (make-thread-pool size . opts)
-  (let ((tp (%make-thread-pool (make-shared-queue) '() size))
+  (let ((tp (%make-thread-pool (make-shared-queue) '()))
         (handler (if (and (pair? opts)
                           (procedure? (car opts)))
                      (car opts)