diff --git a/racket/src/bc/src/startup.inc b/racket/src/bc/src/startup.inc
index 61c27af085..cd7a84aa4f 100644
--- a/racket/src/bc/src/startup.inc
+++ b/racket/src/bc/src/startup.inc
@@ -11329,7 +11329,7 @@ static const char *startup_source =
 "(let-values(((val_0)(ref_0 t_0 v_0)))(if(identifier? val_0) val_0(datum->syntax$1 #f '?)))))"
 "(let-values()"
 "(lambda(t_0)"
-"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_0 t_0)))))"
+"(let-values(((id_0)(call-with-continuation-barrier(lambda()(v_0 t_0)))))"
 "(begin"
 "(if(identifier? id_0)"
 "(void)"
diff --git a/racket/src/cs/schemified/expander.scm b/racket/src/cs/schemified/expander.scm
index 9f02d0a989..7d55cb02f8 100644
--- a/racket/src/cs/schemified/expander.scm
+++ b/racket/src/cs/schemified/expander.scm
@@ -13989,7 +13989,7 @@
                   (if (identifier? val_0) val_0 (datum->syntax$1 #f '?))))
               (lambda (t_0)
                 (let ((id_0
-                       (call-with-continuation-prompt
+                       (call-with-continuation-barrier
                         (lambda () (|#%app| v_0 t_0)))))
                   (begin
                     (if (identifier? id_0)
diff --git a/racket/src/expander/expand/rename-trans.rkt b/racket/src/expander/expand/rename-trans.rkt
index f1da731470..495d8f09a8 100644
--- a/racket/src/expander/expand/rename-trans.rkt
+++ b/racket/src/expander/expand/rename-trans.rkt
@@ -39,7 +39,7 @@
                                        val
                                        (datum->syntax #f '?)))]
                                 [else (lambda (t)
-                                        (define id (call-with-continuation-prompt
+                                        (define id (call-with-continuation-barrier
                                                     (lambda ()
                                                       (v t))))
                                         (unless (identifier? id)