diff --git a/collects/tests/mzscheme/port.ss b/collects/tests/mzscheme/port.ss
index ad4d316624..7a66f1ec9b 100644
--- a/collects/tests/mzscheme/port.ss
+++ b/collects/tests/mzscheme/port.ss
@@ -154,7 +154,7 @@
   (define (remq v l)
     (if (eq? (car l) v)
 	(cdr l)
-	(cons (car l) (remq (cdr l) v))))
+	(cons (car l) (remq v (cdr l)))))
   ;; ----------------------------------------
   ;; The server has a list of outstanding commit requests,
   ;;  and it also must service each port operation (read,