diff --git a/collects/racket/vector.rkt b/collects/racket/vector.rkt
index 6c94df2b83..161e70ea37 100644
--- a/collects/racket/vector.rkt
+++ b/collects/racket/vector.rkt
@@ -173,7 +173,7 @@
   (let* ([lens (for/list ([e (in-list vs)] [i (in-naturals)])
                  (if (vector? e)
                    (unsafe-vector-length e)
-                   (raise-argument-error 'vector-append "vector?" e i)))]
+                   (apply raise-argument-error 'vector-append "vector?" i vs)))]
          [new-v (make-vector (apply + lens))])
     (let loop ([start 0] [lens lens] [vs vs])
       (when (pair? lens)