diff --git a/collects/scheme/private/for.ss b/collects/scheme/private/for.ss
index f34104146e..4041239658 100644
--- a/collects/scheme/private/for.ss
+++ b/collects/scheme/private/for.ss
@@ -469,8 +469,8 @@
 
   (define in-port
     (case-lambda
-      [()  (in-port (current-input-port) read)]
-      [(r) (in-port (current-input-port) r)]
+      [()  (in-port read (current-input-port))]
+      [(r) (in-port r (current-input-port))]
       [(r p)
        (unless (and (procedure? r) (procedure-arity-includes? r 1))
          (raise-type-error 'in-port "procedure (arity 1)" r))