diff --git a/echo-server.rkt b/echo-server.rkt
index 7ea2d95..e8b7290 100644
--- a/echo-server.rkt
+++ b/echo-server.rkt
@@ -58,7 +58,7 @@
 	      (transition s (connection in out))]
 	     [_ #f]))
 	 #f
-	 (sub (event (tcp-accept-evt (tcp-listen port-number 4 #t)) ?)
+	 (sub (event (tcp-accept-evt (tcp-listen port-number 128 #t)) ?)
               #:meta-level 1)))
 
 (define (connection in out)