diff --git a/collects/tests/mzscheme/for.ss b/collects/tests/mzscheme/for.ss
index 76de87feb0..8f5773b37a 100644
--- a/collects/tests/mzscheme/for.ss
+++ b/collects/tests/mzscheme/for.ss
@@ -132,8 +132,7 @@
 (test-generator [(65 66 67)] (in-input-port-bytes (open-input-bytes #"ABC")))
 
 (test-generator [(1 2 3)] (in-port read (open-input-string "1 2 3")))
-(test-generator [(123)] (in-port read (open-input-string "123")))
-(test-generator [(65 66 67)] (in-port read-bytes (open-input-bytes "ABC")))
+(test-generator [(65 66 67)] (in-port read-byte (open-input-string "ABC")))
 
 (test-generator [(0 1 2 3 4 5)] (in-sequences (in-range 6)))
 (test-generator [(0 1 2 3 4 5)] (in-sequences (in-range 4) '(4 5)))