diff --git a/collects/racket/private/for.rkt b/collects/racket/private/for.rkt
index ab74205a50..6d61b18c32 100644
--- a/collects/racket/private/for.rkt
+++ b/collects/racket/private/for.rkt
@@ -529,7 +529,7 @@
           [(v start stop) (in-vector-name v start stop 1)]
           [(v start stop step)
            (let-values (([v start stop step]
-                         (normalise-inputs in-vector-name type-name-str vector?-id vector-length-id
+                         (normalise-inputs 'in-vector-name type-name-str vector?-id vector-length-id
                                           v start stop step)))
              (make-do-sequence (lambda () (:vector-gen-id v start stop step))))]))]))
 
diff --git a/collects/racket/private/pre-base.rkt b/collects/racket/private/pre-base.rkt
index 57d29b7e05..e41a28c551 100644
--- a/collects/racket/private/pre-base.rkt
+++ b/collects/racket/private/pre-base.rkt
@@ -135,7 +135,11 @@
                               procedure->method procedure-rename
                               chaperone-procedure impersonate-procedure)
              (all-from "reqprov.rkt")
-             (all-from "for.rkt")
+             (all-from-except "for.rkt"
+                              define-in-vector-like
+                              define-:vector-like-gen
+                              make-in-vector-like
+                              normalise-inputs)
              (all-from "kernstruct.rkt")
              #%top-interaction
 
diff --git a/collects/racket/private/vector-wraps.rkt b/collects/racket/private/vector-wraps.rkt
index 4e92627b59..4dd773bf42 100644
--- a/collects/racket/private/vector-wraps.rkt
+++ b/collects/racket/private/vector-wraps.rkt
@@ -1,6 +1,7 @@
 #lang racket/base
 
 (require '#%flfxnum
+         "for.rkt"
          (for-syntax racket/base))
 
 (provide define-vector-wraps)