From a414b34b1494a5cd3d6b05ad3abaede9a2781261 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 9 Oct 2012 20:14:11 -0600
Subject: [PATCH] fix `vector-append' error reporting

Closes PR 13151

Merge to v5.3.1
---
 collects/racket/vector.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)