diff --git a/parse/private/rep.rkt-6-90-0-29 b/parse/private/rep.rkt-6-90-0-29
index 5f3a588..8712446 100644
--- a/parse/private/rep.rkt-6-90-0-29
+++ b/parse/private/rep.rkt-6-90-0-29
@@ -7,6 +7,7 @@
          racket/contract/base
          "make.rkt"
          syntax/parse/private/minimatch
+         syntax/apply-transformer
          syntax/private/id-table
          syntax/stx
          syntax/keyword
@@ -616,13 +617,8 @@
 
 ;; expand-pattern : pattern-expander Syntax -> Syntax
 (define (expand-pattern pe stx)
-  (let* ([proc (pattern-expander-proc pe)]
-         [introducer (make-syntax-introducer)]
-         [mstx (introducer (syntax-local-introduce stx))]
-         [mresult (parameterize ([current-syntax-parse-pattern-introducer introducer])
-                    (proc mstx))]
-         [result (syntax-local-introduce (introducer mresult))])
-    result))
+  (let ([proc (pattern-expander-proc pe)])
+    (local-apply-transformer proc stx 'expression)))
 
 ;; parse-ellipsis-head-pattern : stx DeclEnv -> (listof EllipsisHeadPattern)
 (define (parse-ellipsis-head-pattern stx decls)