diff --git a/racket/collects/racket/match/runtime.rkt b/racket/collects/racket/match/runtime.rkt
index 59a13b73b8..f059f96f34 100644
--- a/racket/collects/racket/match/runtime.rkt
+++ b/racket/collects/racket/match/runtime.rkt
@@ -17,7 +17,8 @@
 (define match-equality-test (make-parameter equal?))
 
 (define-struct (exn:misc:match exn:fail) (value srclocs)
- #:property prop:exn:srclocs (lambda (ex) (exn:misc:match-srclocs ex)))
+  #:property prop:exn:srclocs (lambda (ex) (exn:misc:match-srclocs ex))
+  #:transparent)
 
 
 (define (match:error val srclocs form-name)