diff --git a/repl-server.rkt b/repl-server.rkt
index c0a28fe..3a7d683 100644
--- a/repl-server.rkt
+++ b/repl-server.rkt
@@ -98,7 +98,7 @@
     (close-output-port out)))
 
 (define (t-server)
-  (define s (tcp-listen 2322 4))
+  (define s (tcp-listen 2322))
   (printf "Accepting...\n")
   (tcp-pty-ssh-server s repl-shell #:prompt *prompt*))