diff --git a/pkgs/racket-test-core/tests/racket/port.rktl b/pkgs/racket-test-core/tests/racket/port.rktl
index d2f23f52ae..c113b4e319 100644
--- a/pkgs/racket-test-core/tests/racket/port.rktl
+++ b/pkgs/racket-test-core/tests/racket/port.rktl
@@ -924,7 +924,7 @@
 ;; Check `file-position`, OS-level pipes, and peek
 (when (and (memq (system-type) '(unix macosx))
            (file-exists? "/bin/cat"))
-  (define-values (sp stdout-in stdin-out no-stderr) (subprocess #f #f (current-error-port) "/bin/cat"))
+  (define-values (sp stdout-in stdin-out stderr-in) (subprocess #f #f #f "/bin/cat"))
   (write-bytes #"abcd\n" stdin-out)
   (close-output-port stdin-out)
   (test 0 file-position stdout-in)
@@ -933,6 +933,7 @@
   (test #\a read-char stdout-in)
   (test 1 file-position stdout-in)
   (close-input-port stdout-in)
+  (close-input-port stderr-in)
   (subprocess-wait sp))
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;