diff --git a/collects/tests/typed-scheme/succeed/pr10057.rkt b/collects/tests/typed-scheme/succeed/pr10057.rkt
new file mode 100644
index 00000000..a4f1829d
--- /dev/null
+++ b/collects/tests/typed-scheme/succeed/pr10057.rkt
@@ -0,0 +1,5 @@
+#lang typed-scheme
+(require scheme/match)
+(ann (match '(a b c)
+       [(list sym more ...) 1]
+       [else 1]) Integer)
\ No newline at end of file