diff --git a/collects/racket/match/parse.rkt b/collects/racket/match/parse.rkt
index 54dc1b86b1..7498812fc6 100644
--- a/collects/racket/match/parse.rkt
+++ b/collects/racket/match/parse.rkt
@@ -154,7 +154,7 @@
     [(struct s pats)
      (parse-struct stx cert parse #'s #'pats)]
     [(s . pats)
-     (struct-info? (syntax-local-value #'s (lambda () #f)))
+     (and (identifier? #'s) (struct-info? (syntax-local-value #'s (lambda () #f))))
      (parse-struct stx cert parse #'s #'pats)]
     [(? p q1 qs ...)
      (make-And (cons (make-Pred (cert #'p))