diff --git a/racket/src/cs/rumble/control.ss b/racket/src/cs/rumble/control.ss
index f52a4a9e03..e60c78f150 100644
--- a/racket/src/cs/rumble/control.ss
+++ b/racket/src/cs/rumble/control.ss
@@ -1226,6 +1226,9 @@
                                     (cons (continuation->trace k)
                                           (get-metacontinuation-traces (current-metacontinuation))))))]))
 
+(define/who (current-continuation-marks/no-trace)
+  (make-continuation-mark-set (current-mark-chain) null))
+
 ;; Wrapped a threads layer to handle thread arguments:
 (define/who continuation-marks
   (case-lambda
diff --git a/racket/src/cs/rumble/error.ss b/racket/src/cs/rumble/error.ss
index 345e9bf774..793fee044e 100644
--- a/racket/src/cs/rumble/error.ss
+++ b/racket/src/cs/rumble/error.ss
@@ -692,7 +692,7 @@
             (not (non-continuable-violation? v)))
        (log-system-message 'warning (exn->string exn))]
       [else
-       (let ([hs (continuation-mark-set->list (current-continuation-marks the-root-continuation-prompt-tag)
+       (let ([hs (continuation-mark-set->list (current-continuation-marks/no-trace)
                                               exception-handler-key
                                               the-root-continuation-prompt-tag)]
              [init-v (condition->exn v)])