diff --git a/collects/syntax/parse/private/runtime.rkt b/collects/syntax/parse/private/runtime.rkt
index c5e8d1260e..d80c3daa13 100644
--- a/collects/syntax/parse/private/runtime.rkt
+++ b/collects/syntax/parse/private/runtime.rkt
@@ -323,7 +323,7 @@
 
 (define-syntax (curried-stxclass-parser stx)
   (syntax-case stx ()
-    [(cp class argu)
+    [(_ class argu)
      (with-syntax ([#s(arguments (parg ...) (kw ...) _) #'argu])
        (let ([sc (get-stxclass/check-arity #'class #'class
                                            (length (syntax->list #'(parg ...)))