diff --git a/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/echo.rkt b/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/echo.rkt
index 751f023870..acb5ca715b 100644
--- a/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/echo.rkt
+++ b/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/echo.rkt
@@ -6,8 +6,9 @@
 (define n 10)
 
 (define (server)
+  (define l (tcp-listen PORT 5 #t))
   (thread client)
-  (let-values ([(in out) (tcp-accept (tcp-listen PORT 5 #t))]
+  (let-values ([(in out) (tcp-accept l)]
                [(buffer) (make-string (string-length DATA))])
     (file-stream-buffer-mode out 'none)
     (let loop ([i (read-string! buffer in)]
diff --git a/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/typed/echo.rktl b/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/typed/echo.rktl
index 7430f6dab2..1de0015312 100644
--- a/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/typed/echo.rktl
+++ b/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/typed/echo.rktl
@@ -7,8 +7,9 @@
 
 (: server ( -> Void))
 (define (server)
+  (define l (tcp-listen PORT 5 #t))
   (thread client)
-  (let-values ([(in out) (tcp-accept (tcp-listen PORT 5 #t))]
+  (let-values ([(in out) (tcp-accept l)]
                [(buffer) (make-string (string-length DATA))])
     (file-stream-buffer-mode out 'none)
     (let: loop : Void ([i : (U Integer EOF) (read-string! buffer in)]