diff --git a/collects/tests/mzscheme/macro.ss b/collects/tests/mzscheme/macro.ss
index cf16ec0a91..aa505a435b 100644
--- a/collects/tests/mzscheme/macro.ss
+++ b/collects/tests/mzscheme/macro.ss
@@ -332,4 +332,9 @@
 
 ;; ----------------------------------------
 
+(test 10 'vector-pattern (syntax-case #() () [#() 10]))
+(test 'b 'vector-pattern (syntax-case #(a b c) () [#(x y z) (syntax-e #'y)]))
+
+;; ----------------------------------------
+
 (report-errs)