diff --git a/current-pvars.rkt b/current-pvars.rkt
index 4663d07..fe04a11 100644
--- a/current-pvars.rkt
+++ b/current-pvars.rkt
@@ -171,7 +171,7 @@
                     (syntax*->list (stx-cdr stx))
                     (andmap identifier?
                             (syntax*->list (stx-cdr stx)))))
-          (raise-syntax-error 'with-pvars "bad syntax" stx)
+          (raise-syntax-error 'define-pvars "bad syntax" stx)
           (void))
       (let* ([pvars (reverse (syntax*->list (stx-cdr stx)))]
              [unique-at-runtime (map gensym (map syntax-e pvars))]