diff --git a/collects/scheme/match/gen-match.ss b/collects/scheme/match/gen-match.ss
index a8e1f878fd..d511f208e0 100644
--- a/collects/scheme/match/gen-match.ss
+++ b/collects/scheme/match/gen-match.ss
@@ -29,7 +29,7 @@
                (for/list ([clause (syntax->list clauses)]
                           [pats (syntax->list #'(pats ...))]
                           [rhs (syntax->list #'(rhs ...))])
-		 #;(unless (list? pats)
+		 (unless (syntax->list pats)
 		   (raise-syntax-error 
 		    'match*
 		    "expected a sequence of patterns"