diff --git a/racket/collects/racket/match/parse-helper.rkt b/racket/collects/racket/match/parse-helper.rkt
index 5614f36a04..75abc86a66 100644
--- a/racket/collects/racket/match/parse-helper.rkt
+++ b/racket/collects/racket/match/parse-helper.rkt
@@ -116,7 +116,7 @@
           (make-Struct pred
                        (syntax-property
                         pred
-                        'disappeared-use (list struct-name))
+                        'disappeared-use (list (syntax-local-introduce struct-name)))
                        lineage (and (checked-struct-info? v) complete?)
                        acc
                        (cond [(eq? '_ (syntax-e pats))