diff --git a/collects/scheme/private/stxcase.ss b/collects/scheme/private/stxcase.ss
index 2b6f4d1c11..add6740146 100644
--- a/collects/scheme/private/stxcase.ss
+++ b/collects/scheme/private/stxcase.ss
@@ -215,7 +215,7 @@
                                           h))))))))]
               [(eq? i 'veclist)
                (and (stx-vector? e #f)
-                    (loop (vector-ref i 1) (vector->list (syntax-e e)) cap))]
+                    (loop (vector-ref pat 1) (vector->list (syntax-e e)) cap))]
               [(eq? i 'vector)
                (and (stx-vector? e (vector-ref pat 1))
                     (let vloop ([p (vector-ref pat 2)][pos 0])