diff --git a/pkgs/racket-test/tests/racket/contract/test-util.rkt b/pkgs/racket-test/tests/racket/contract/test-util.rkt
index d802643daf..0d789dfa63 100644
--- a/pkgs/racket-test/tests/racket/contract/test-util.rkt
+++ b/pkgs/racket-test/tests/racket/contract/test-util.rkt
@@ -176,7 +176,9 @@
        #:test-case-name ',name
        'no-exn-raised
        eval
-       '(with-handlers ([exn:fail? exn-message])
+       '(with-handlers ([exn:fail? (λ (x) (cons (exn-message x)
+                                                (continuation-mark-set->context
+                                                 (exn-continuation-marks x))))])
           ,expression
           'no-exn-raised)))
     (let ([new-expression (rewrite-out expression)])