diff --git a/racket/src/bc/src/startup.inc b/racket/src/bc/src/startup.inc
index 2cf3113fbe..fec82e702d 100644
--- a/racket/src/bc/src/startup.inc
+++ b/racket/src/bc/src/startup.inc
@@ -17866,11 +17866,9 @@ static const char *startup_source =
 "(let-values(((temp1_0)(hash-ref info_1 'bindings null))"
 "((temp2_0)"
 "(lambda(a_0 b_0)"
-"(begin"
-" 'temp2"
 "(if(hash-ref a_0 'match? #f)"
 "(not(hash-ref b_0 'match? #f))"
-" #f)))))"
+" #f))))"
 "(sort.1 #f #f temp1_0 temp2_0))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
@@ -30346,8 +30344,7 @@ static const char *startup_source =
 "(let-values(((bundles_0)"
 "(list->vector"
 "(let-values(((temp1_0)(flatten-linklet-directory_0 ld_0 '() '()))"
-"((temp2_0)"
-"(lambda(a_0 b_0)(begin 'temp2(bytes<?(car a_0)(car b_0))))))"
+"((temp2_0)(lambda(a_0 b_0)(bytes<?(car a_0)(car b_0)))))"
 "(sort.1 #f #f temp1_0 temp2_0)))))"
 "(let-values(((len_0)(vector-length bundles_0)))"
 "(let-values(((initial-offset_0)"
@@ -52680,10 +52677,8 @@ static const char *startup_source =
 "((temp10_0)"
 "(lambda()"
 "(begin"
-" 'temp10"
-"(begin"
 "(file-position(current-input-port) start_1)"
-"(read-bytes(max 0(- end_1 start_1))))))))"
+"(read-bytes(max 0(- end_1 start_1)))))))"
 "(with-input-from-file.1 'binary path9_0 temp10_0))))))))"
 "(let-values(((p_0)(open-input-bytes s_0)))"
 "((letrec-values(((loop_0)"
@@ -52926,10 +52921,8 @@ static const char *startup_source =
 "(let-values(((p5_0) p_0)"
 "((temp6_0)"
 "(lambda()"
-"(begin"
-" 'temp6"
 "(let-values(((v_0)(call-with-default-reading-parameterization 1/read)))"
-"(if(hash? v_0) v_0 #f))))))"
+"(if(hash? v_0) v_0 #f)))))"
 "(with-input-from-file.1 'binary p5_0 temp6_0))"
 " #f)"
 " #f)))"
@@ -53046,8 +53039,6 @@ static const char *startup_source =
 "(let-values(((path7_0) path_0)"
 "((temp8_0)"
 "(lambda(p_0)"
-"(begin"
-" 'temp8"
 "(let-values(((bstr_0)(read-bytes 8192 p_0)))"
 "(if(if(bytes? bstr_0)(>=(bytes-length bstr_0) 8192) #f)"
 "(apply"
@@ -53061,7 +53052,7 @@ static const char *startup_source =
 "(let-values(((bstr_1)(read-bytes 8192 p_0)))"
 "(if(eof-object? bstr_1) null(cons bstr_1(loop_0))))))))"
 " loop_0))))"
-" bstr_0))))))"
+" bstr_0)))))"
 "(call-with-input-file*.1 'binary path7_0 temp8_0)))))"
 "(define-values"
 "(no-file-stamp?)"
@@ -53124,14 +53115,12 @@ static const char *startup_source =
 "(let-values(((links-path9_0) links-path_0)"
 "((temp10_0)"
 "(lambda(p_0)"
-"(begin"
-" 'temp10"
 "(begin0"
 "(1/read p_0)"
 "(if(eof-object?(1/read p_0))"
 "(void)"
 "(let-values()"
-"                                                                      (error \"expected a single S-expression\"))))))))"
+"                                                                    (error \"expected a single S-expression\")))))))"
 "(call-with-input-file*.1 'binary links-path9_0 temp10_0)))))"
 "(let-values((()"
 "(begin"
@@ -62989,9 +62978,7 @@ static const char *startup_source =
 "(let-values(((provides_0 self_0)"
 "(let-values(((temp41_0)"
 "(lambda(m_0)"
-"(begin"
-" 'temp41"
-"(values(module-provides m_0)(module-self m_0)))))"
+"(values(module-provides m_0)(module-self m_0))))"
 "((who42_0) 'module->exports)"
 "((mod43_0) mod_0)"
 "((temp44_0)"
@@ -63008,10 +62995,7 @@ static const char *startup_source =
 "(begin"
 " 'module->indirect-exports"
 "(let-values(((temp45_0)"
-"(lambda(m_0)"
-"(begin"
-" 'temp45"
-"(variables->api-nonprovides(module-provides m_0)((module-get-all-variables m_0))))))"
+"(lambda(m_0)(variables->api-nonprovides(module-provides m_0)((module-get-all-variables m_0)))))"
 "((temp46_0) 'module->indirect-exports)"
 "((mod47_0) mod_0))"
 "(module->.1 void temp45_0 temp46_0 mod47_0 #f)))))"
@@ -63022,11 +63006,9 @@ static const char *startup_source =
 " 'module-provide-protected?"
 "(let-values(((temp48_0)"
 "(lambda(m_0)"
-"(begin"
-" 'temp48"
 "(let-values(((b/p_0)(hash-ref(module-provides m_0) sym_0 #f)))"
 "(let-values(((or-part_0)(not b/p_0)))"
-"(if or-part_0 or-part_0(provided-as-protected? b/p_0)))))))"
+"(if or-part_0 or-part_0(provided-as-protected? b/p_0))))))"
 "((temp49_0) 'module-provide-protected?)"
 "((mod50_0) mod_0))"
 "(module->.1 void temp48_0 temp49_0 mod50_0 #f)))))"
@@ -66352,8 +66334,6 @@ static const char *startup_source =
 "((temp2_0)"
 "(lambda(i_0)"
 "(begin"
-" 'temp2"
-"(begin"
 "(maybe-count-lines!_0 i_0)"
 "((letrec-values(((loop_0)"
 "(lambda(vals_0)"
@@ -66383,12 +66363,8 @@ static const char *startup_source =
 " read-on-demand-source"
 "(path->complete-path path_0))"
 "(let-values()"
-"(1/read-syntax"
-"(object-name i_0)"
-" i_0)))"
-"(1/read-syntax"
-"(object-name i_0)"
-" i_0))))))"
+"(1/read-syntax(object-name i_0) i_0)))"
+"(1/read-syntax(object-name i_0) i_0))))))"
 "(if(eof-object? s_0)"
 "(apply values vals_0)"
 "(loop_0"
@@ -66405,7 +66381,7 @@ static const char *startup_source =
 "(default-continuation-prompt-tag)"
 " args_0))))))))))"
 " loop_0)"
-"(list(void))))))))"
+"(list(void)))))))"
 "(call-with-input-file*.1 'binary path1_0 temp2_0)))))))))))"
 "(define-values(version-bytes)(string->bytes/utf-8(version)))"
 "(define-values(version-length)(bytes-length version-bytes))"
diff --git a/racket/src/cs/schemified/expander.scm b/racket/src/cs/schemified/expander.scm
index 4456c70162..33517a6f49 100644
--- a/racket/src/cs/schemified/expander.scm
+++ b/racket/src/cs/schemified/expander.scm
@@ -20993,20 +20993,17 @@
                                                        'bindings
                                                        null)))
                                                  (let ((temp2_0
-                                                        (|#%name|
-                                                         temp2
-                                                         (lambda (a_0 b_0)
-                                                           (begin
-                                                             (if (hash-ref
-                                                                  a_0
-                                                                  'match?
-                                                                  #f)
-                                                               (not
-                                                                (hash-ref
-                                                                 b_0
-                                                                 'match?
-                                                                 #f))
-                                                               #f))))))
+                                                        (lambda (a_0 b_0)
+                                                          (if (hash-ref
+                                                               a_0
+                                                               'match?
+                                                               #f)
+                                                            (not
+                                                             (hash-ref
+                                                              b_0
+                                                              'match?
+                                                              #f))
+                                                            #f))))
                                                    (let ((temp1_1 temp1_0))
                                                      (sort.1
                                                       #f
@@ -34786,12 +34783,9 @@
                            (let ((temp1_0
                                   (flatten-linklet-directory_0 ld_0 '() '())))
                              (let ((temp2_0
-                                    (|#%name|
-                                     temp2
-                                     (lambda (a_0 b_0)
-                                       (begin
-                                         (let ((app_0 (car a_0)))
-                                           (bytes<? app_0 (car b_0))))))))
+                                    (lambda (a_0 b_0)
+                                      (let ((app_0 (car a_0)))
+                                        (bytes<? app_0 (car b_0))))))
                                (let ((temp1_1 temp1_0))
                                  (sort.1 #f #f temp1_1 temp2_0)))))))
                      (let ((len_0 (vector-length bundles_0)))
@@ -58995,16 +58989,13 @@
                                       (if or-part_0 or-part_0 0))
                                     (if end3_0 end3_0 (file-size path_0)))))
                              (let ((temp10_0
-                                    (|#%name|
-                                     temp10
-                                     (lambda ()
-                                       (begin
-                                         (begin
-                                           (file-position
-                                            (current-input-port)
-                                            start_0)
-                                           (read-bytes
-                                            (max 0 (- end_0 start_0)))))))))
+                                    (lambda ()
+                                      (begin
+                                        (file-position
+                                         (current-input-port)
+                                         start_0)
+                                        (read-bytes
+                                         (max 0 (- end_0 start_0)))))))
                                (with-input-from-file.1
                                 'binary
                                 path_0
@@ -59283,14 +59274,11 @@
              (if p_0
                (if (file-exists? p_0)
                  (let ((temp6_0
-                        (|#%name|
-                         temp6
-                         (lambda ()
-                           (begin
-                             (let ((v_0
-                                    (call-with-default-reading-parameterization
-                                     1/read)))
-                               (if (hash? v_0) v_0 #f)))))))
+                        (lambda ()
+                          (let ((v_0
+                                 (call-with-default-reading-parameterization
+                                  1/read)))
+                            (if (hash? v_0) v_0 #f)))))
                    (with-input-from-file.1 'binary p_0 temp6_0))
                  #f)
                #f)))
@@ -59424,30 +59412,27 @@
 (define file->bytes
   (lambda (path_0)
     (let ((temp8_0
-           (|#%name|
-            temp8
-            (lambda (p_0)
-              (begin
-                (let ((bstr_0 (read-bytes 8192 p_0)))
-                  (if (if (bytes? bstr_0)
-                        (>= (unsafe-bytes-length bstr_0) 8192)
-                        #f)
-                    (apply
-                     bytes-append
-                     (cons
-                      bstr_0
-                      (letrec*
-                       ((loop_0
-                         (|#%name|
-                          loop
-                          (lambda ()
-                            (begin
-                              (let ((bstr_1 (read-bytes 8192 p_0)))
-                                (if (eof-object? bstr_1)
-                                  null
-                                  (cons bstr_1 (loop_0)))))))))
-                       (loop_0))))
-                    bstr_0)))))))
+           (lambda (p_0)
+             (let ((bstr_0 (read-bytes 8192 p_0)))
+               (if (if (bytes? bstr_0)
+                     (>= (unsafe-bytes-length bstr_0) 8192)
+                     #f)
+                 (apply
+                  bytes-append
+                  (cons
+                   bstr_0
+                   (letrec*
+                    ((loop_0
+                      (|#%name|
+                       loop
+                       (lambda ()
+                         (begin
+                           (let ((bstr_1 (read-bytes 8192 p_0)))
+                             (if (eof-object? bstr_1)
+                               null
+                               (cons bstr_1 (loop_0)))))))))
+                    (loop_0))))
+                 bstr_0)))))
       (call-with-input-file*.1 'binary path_0 temp8_0))))
 (define no-file-stamp?
   (lambda (a_0)
@@ -59512,16 +59497,13 @@
                                  (if (no-file-stamp? ts_0)
                                    null
                                    (let ((temp10_0
-                                          (|#%name|
-                                           temp10
-                                           (lambda (p_0)
-                                             (begin
-                                               (begin0
-                                                 (1/read p_0)
-                                                 (if (eof-object? (1/read p_0))
-                                                   (void)
-                                                   (error
-                                                    "expected a single S-expression"))))))))
+                                          (lambda (p_0)
+                                            (begin0
+                                              (1/read p_0)
+                                              (if (eof-object? (1/read p_0))
+                                                (void)
+                                                (error
+                                                 "expected a single S-expression"))))))
                                      (call-with-input-file*.1
                                       'binary
                                       links-path_0
@@ -70381,13 +70363,8 @@
               (call-with-values
                (lambda ()
                  (let ((temp41_0
-                        (|#%name|
-                         temp41
-                         (lambda (m_0)
-                           (begin
-                             (values
-                              (module-provides m_0)
-                              (module-self m_0)))))))
+                        (lambda (m_0)
+                          (values (module-provides m_0) (module-self m_0)))))
                    (let ((temp44_0
                           (lambda ()
                             (check-provides-verbosity
@@ -70414,13 +70391,10 @@
    (lambda (mod_0)
      (begin
        (let ((temp45_0
-              (|#%name|
-               temp45
-               (lambda (m_0)
-                 (begin
-                   (variables->api-nonprovides
-                    (module-provides m_0)
-                    (|#%app| (module-get-all-variables m_0))))))))
+              (lambda (m_0)
+                (variables->api-nonprovides
+                 (module-provides m_0)
+                 (|#%app| (module-get-all-variables m_0))))))
          (module->.1 void temp45_0 'module->indirect-exports mod_0 #f))))))
 (define 1/module-provide-protected?
   (|#%name|
@@ -70428,15 +70402,12 @@
    (lambda (mod_0 sym_0)
      (begin
        (let ((temp48_0
-              (|#%name|
-               temp48
-               (lambda (m_0)
-                 (begin
-                   (let ((b/p_0 (hash-ref (module-provides m_0) sym_0 #f)))
-                     (let ((or-part_0 (not b/p_0)))
-                       (if or-part_0
-                         or-part_0
-                         (provided-as-protected? b/p_0)))))))))
+              (lambda (m_0)
+                (let ((b/p_0 (hash-ref (module-provides m_0) sym_0 #f)))
+                  (let ((or-part_0 (not b/p_0)))
+                    (if or-part_0
+                      or-part_0
+                      (provided-as-protected? b/p_0)))))))
          (module->.1 void temp48_0 'module-provide-protected? mod_0 #f))))))
 (define 1/module->namespace
   (let ((module->namespace_0
@@ -73863,71 +73834,66 @@
                           (cons '|#%top-interaction| s_0)
                           s_0)))))))
               (let ((temp2_0
-                     (|#%name|
-                      temp2
-                      (lambda (i_0)
-                        (begin
-                          (begin
-                            (maybe-count-lines!_0 i_0)
-                            (letrec*
-                             ((loop_0
-                               (|#%name|
-                                loop
-                                (lambda (vals_0)
-                                  (begin
-                                    (let ((s_0
+                     (lambda (i_0)
+                       (begin
+                         (maybe-count-lines!_0 i_0)
+                         (letrec*
+                          ((loop_0
+                            (|#%name|
+                             loop
+                             (lambda (vals_0)
+                               (begin
+                                 (let ((s_0
+                                        (with-continuation-mark*
+                                         push-authentic
+                                         parameterization-key
+                                         (extend-parameterization
+                                          (continuation-mark-set-first
+                                           #f
+                                           parameterization-key)
+                                          1/read-accept-compiled
+                                          #t
+                                          1/read-accept-reader
+                                          #t
+                                          1/read-accept-lang
+                                          #t)
+                                         (if (load-on-demand-enabled)
                                            (with-continuation-mark*
-                                            push-authentic
+                                            authentic
                                             parameterization-key
-                                            (extend-parameterization
-                                             (continuation-mark-set-first
-                                              #f
-                                              parameterization-key)
-                                             1/read-accept-compiled
-                                             #t
-                                             1/read-accept-reader
-                                             #t
-                                             1/read-accept-lang
-                                             #t)
-                                            (if (load-on-demand-enabled)
-                                              (with-continuation-mark*
-                                               authentic
-                                               parameterization-key
-                                               (let ((app_0
-                                                      (continuation-mark-set-first
-                                                       #f
-                                                       parameterization-key)))
-                                                 (extend-parameterization
-                                                  app_0
-                                                  read-on-demand-source
-                                                  (path->complete-path
-                                                   path_0)))
-                                               (1/read-syntax
-                                                (object-name i_0)
-                                                i_0))
-                                              (1/read-syntax
-                                               (object-name i_0)
-                                               i_0)))))
-                                      (if (eof-object? s_0)
-                                        (apply values vals_0)
-                                        (loop_0
-                                         (call-with-continuation-prompt
+                                            (let ((app_0
+                                                   (continuation-mark-set-first
+                                                    #f
+                                                    parameterization-key)))
+                                              (extend-parameterization
+                                               app_0
+                                               read-on-demand-source
+                                               (path->complete-path path_0)))
+                                            (1/read-syntax
+                                             (object-name i_0)
+                                             i_0))
+                                           (1/read-syntax
+                                            (object-name i_0)
+                                            i_0)))))
+                                   (if (eof-object? s_0)
+                                     (apply values vals_0)
+                                     (loop_0
+                                      (call-with-continuation-prompt
+                                       (lambda ()
+                                         (call-with-values
                                           (lambda ()
-                                            (call-with-values
-                                             (lambda ()
-                                               (let ((app_0 (1/current-eval)))
-                                                 (|#%app|
-                                                  app_0
-                                                  (add-top-interaction_0
-                                                   s_0))))
-                                             list))
+                                            (let ((app_0 (1/current-eval)))
+                                              (|#%app|
+                                               app_0
+                                               (add-top-interaction_0 s_0))))
+                                          list))
+                                       (default-continuation-prompt-tag)
+                                       (lambda args_0
+                                         (apply
+                                          abort-current-continuation
                                           (default-continuation-prompt-tag)
-                                          (lambda args_0
-                                            (apply
-                                             abort-current-continuation
-                                             (default-continuation-prompt-tag)
-                                             args_0)))))))))))
-                             (loop_0 (list (void))))))))))
+                                          args_0)))))))))))
+                          (loop_0 (list (void))))))))
                 (call-with-input-file*.1 'binary path_0 temp2_0)))))))))
 (define version-bytes (string->bytes/utf-8 (version)))
 (define version-length (unsafe-bytes-length version-bytes))
diff --git a/racket/src/cs/schemified/io.scm b/racket/src/cs/schemified/io.scm
index b3d7ea7206..4b2c15b92b 100644
--- a/racket/src/cs/schemified/io.scm
+++ b/racket/src/cs/schemified/io.scm
@@ -35667,141 +35667,135 @@
                        (unsafe-start-atomic)
                        (begin0
                          (let ((temp39_0
-                                (|#%name|
-                                 temp39
-                                 (lambda (remote-addr_0)
-                                   (begin
-                                     (if (vector? remote-addr_0)
-                                       (raise-connect-error_1
-                                        remote-addr_0
-                                        "host not found")
-                                       (let ((temp43_0
-                                              (|#%name|
-                                               temp43
-                                               (lambda (local-addr_0)
-                                                 (begin
-                                                   (if (vector? local-addr_0)
-                                                     (raise-connect-error_1
-                                                      local-addr_0
-                                                      "local host not found"
-                                                      local-hostname12_0
-                                                      local-port-no13_0)
-                                                     (call-with-resource
-                                                      (connect-progress1.1
-                                                       (|#%app|
-                                                        rktio_start_connect
-                                                        (unsafe-place-local-ref
-                                                         cell.1)
-                                                        remote-addr_0
-                                                        local-addr_0)
-                                                       #f)
-                                                      (lambda (conn-prog_0)
-                                                        (begin
-                                                          (remove-trying-fd!
-                                                           conn-prog_0)
-                                                          (let ((conn_0
-                                                                 (connect-progress-conn
-                                                                  conn-prog_0)))
-                                                            (if conn_0
-                                                              (|#%app|
-                                                               rktio_connect_stop
-                                                               (unsafe-place-local-ref
-                                                                cell.1)
-                                                               conn_0)
-                                                              (void)))))
-                                                      (lambda (conn-prog_0)
-                                                        (let ((conn_0
-                                                               (connect-progress-conn
-                                                                conn-prog_0)))
-                                                          (if (vector? conn_0)
-                                                            (raise-connect-error_1
-                                                             conn_0)
-                                                            (letrec*
-                                                             ((loop_0
-                                                               (|#%name|
-                                                                loop
-                                                                (lambda ()
-                                                                  (begin
-                                                                    (if (eqv?
-                                                                         (|#%app|
-                                                                          rktio_poll_connect_ready
-                                                                          (unsafe-place-local-ref
-                                                                           cell.1)
-                                                                          conn_0)
-                                                                         0)
-                                                                      (begin
-                                                                        (init-trying-fd!
-                                                                         conn-prog_0)
-                                                                        (unsafe-end-atomic)
-                                                                        (let ((app_0
-                                                                               (if enable-break?10_0
-                                                                                 sync/enable-break
-                                                                                 sync)))
+                                (lambda (remote-addr_0)
+                                  (if (vector? remote-addr_0)
+                                    (raise-connect-error_1
+                                     remote-addr_0
+                                     "host not found")
+                                    (let ((temp43_0
+                                           (lambda (local-addr_0)
+                                             (if (vector? local-addr_0)
+                                               (raise-connect-error_1
+                                                local-addr_0
+                                                "local host not found"
+                                                local-hostname12_0
+                                                local-port-no13_0)
+                                               (call-with-resource
+                                                (connect-progress1.1
+                                                 (|#%app|
+                                                  rktio_start_connect
+                                                  (unsafe-place-local-ref
+                                                   cell.1)
+                                                  remote-addr_0
+                                                  local-addr_0)
+                                                 #f)
+                                                (lambda (conn-prog_0)
+                                                  (begin
+                                                    (remove-trying-fd!
+                                                     conn-prog_0)
+                                                    (let ((conn_0
+                                                           (connect-progress-conn
+                                                            conn-prog_0)))
+                                                      (if conn_0
+                                                        (|#%app|
+                                                         rktio_connect_stop
+                                                         (unsafe-place-local-ref
+                                                          cell.1)
+                                                         conn_0)
+                                                        (void)))))
+                                                (lambda (conn-prog_0)
+                                                  (let ((conn_0
+                                                         (connect-progress-conn
+                                                          conn-prog_0)))
+                                                    (if (vector? conn_0)
+                                                      (raise-connect-error_1
+                                                       conn_0)
+                                                      (letrec*
+                                                       ((loop_0
+                                                         (|#%name|
+                                                          loop
+                                                          (lambda ()
+                                                            (begin
+                                                              (if (eqv?
+                                                                   (|#%app|
+                                                                    rktio_poll_connect_ready
+                                                                    (unsafe-place-local-ref
+                                                                     cell.1)
+                                                                    conn_0)
+                                                                   0)
+                                                                (begin
+                                                                  (init-trying-fd!
+                                                                   conn-prog_0)
+                                                                  (unsafe-end-atomic)
+                                                                  (let ((app_0
+                                                                         (if enable-break?10_0
+                                                                           sync/enable-break
+                                                                           sync)))
+                                                                    (|#%app|
+                                                                     app_0
+                                                                     (rktio-evt1.1
+                                                                      (lambda ()
+                                                                        (not
+                                                                         (eqv?
                                                                           (|#%app|
-                                                                           app_0
-                                                                           (rktio-evt1.1
-                                                                            (lambda ()
-                                                                              (not
-                                                                               (eqv?
-                                                                                (|#%app|
-                                                                                 rktio_poll_connect_ready
-                                                                                 (unsafe-place-local-ref
-                                                                                  cell.1)
-                                                                                 conn_0)
-                                                                                0)))
-                                                                            (lambda (ps_0)
-                                                                              (|#%app|
-                                                                               rktio_poll_add_connect
-                                                                               (unsafe-place-local-ref
-                                                                                cell.1)
-                                                                               conn_0
-                                                                               ps_0)))))
-                                                                        (unsafe-start-atomic)
-                                                                        (loop_0))
-                                                                      (begin
-                                                                        (remove-trying-fd!
-                                                                         conn-prog_0)
-                                                                        (begin
-                                                                          (check-current-custodian
-                                                                           who14_0)
-                                                                          (let ((fd_0
-                                                                                 (|#%app|
-                                                                                  rktio_connect_finish
-                                                                                  (unsafe-place-local-ref
-                                                                                   cell.1)
-                                                                                  conn_0)))
-                                                                            (if (vector?
-                                                                                 fd_0)
-                                                                              (if (racket-error?
-                                                                                   fd_0
-                                                                                   19)
-                                                                                (loop_0)
-                                                                                (begin
-                                                                                  (set-connect-progress-conn!
-                                                                                   conn-prog_0
-                                                                                   #f)
-                                                                                  (raise-connect-error_1
-                                                                                   fd_0)))
-                                                                              (let ((name_0
-                                                                                     (string->immutable-string
-                                                                                      hostname15_0)))
-                                                                                (open-input-output-tcp.1
-                                                                                 #t
-                                                                                 fd_0
-                                                                                 name_0))))))))))))
-                                                             (loop_0))))))))))))
-                                         (call-with-resolved-address.1
-                                          enable-break?10_0
-                                          unsafe-undefined
-                                          #f
-                                          #t
-                                          #f
-                                          #t
-                                          ""
-                                          #f
-                                          local-hostname12_0
-                                          local-port-no13_0
-                                          temp43_0))))))))
+                                                                           rktio_poll_connect_ready
+                                                                           (unsafe-place-local-ref
+                                                                            cell.1)
+                                                                           conn_0)
+                                                                          0)))
+                                                                      (lambda (ps_0)
+                                                                        (|#%app|
+                                                                         rktio_poll_add_connect
+                                                                         (unsafe-place-local-ref
+                                                                          cell.1)
+                                                                         conn_0
+                                                                         ps_0)))))
+                                                                  (unsafe-start-atomic)
+                                                                  (loop_0))
+                                                                (begin
+                                                                  (remove-trying-fd!
+                                                                   conn-prog_0)
+                                                                  (begin
+                                                                    (check-current-custodian
+                                                                     who14_0)
+                                                                    (let ((fd_0
+                                                                           (|#%app|
+                                                                            rktio_connect_finish
+                                                                            (unsafe-place-local-ref
+                                                                             cell.1)
+                                                                            conn_0)))
+                                                                      (if (vector?
+                                                                           fd_0)
+                                                                        (if (racket-error?
+                                                                             fd_0
+                                                                             19)
+                                                                          (loop_0)
+                                                                          (begin
+                                                                            (set-connect-progress-conn!
+                                                                             conn-prog_0
+                                                                             #f)
+                                                                            (raise-connect-error_1
+                                                                             fd_0)))
+                                                                        (let ((name_0
+                                                                               (string->immutable-string
+                                                                                hostname15_0)))
+                                                                          (open-input-output-tcp.1
+                                                                           #t
+                                                                           fd_0
+                                                                           name_0))))))))))))
+                                                       (loop_0))))))))))
+                                      (call-with-resolved-address.1
+                                       enable-break?10_0
+                                       unsafe-undefined
+                                       #f
+                                       #t
+                                       #f
+                                       #t
+                                       ""
+                                       #f
+                                       local-hostname12_0
+                                       local-port-no13_0
+                                       temp43_0))))))
                            (call-with-resolved-address.1
                             enable-break?10_0
                             unsafe-undefined
@@ -35994,58 +35988,55 @@
                                    (unsafe-start-atomic)
                                    (begin0
                                      (let ((temp12_0
-                                            (|#%name|
-                                             temp12
-                                             (lambda (addr_0)
-                                               (begin
-                                                 (if (vector? addr_0)
-                                                   (raise-listen-error_0
-                                                    "address-resolution error"
-                                                    addr_0)
-                                                   (begin
-                                                     (check-current-custodian
-                                                      'tcp-listen)
-                                                     (let ((lnr_0
-                                                            (|#%app|
-                                                             rktio_listen
-                                                             (unsafe-place-local-ref
-                                                              cell.1)
-                                                             addr_0
-                                                             (min
-                                                              max-allow-wait2_0
-                                                              10000)
-                                                             reuse?3_0)))
-                                                       (if (vector? lnr_0)
-                                                         (if (racket-error?
-                                                              lnr_0
-                                                              24)
-                                                           (lambda ()
-                                                             (loop_0
-                                                              (|#%app|
-                                                               rktio_get_ipv4_family
-                                                               (unsafe-place-local-ref
-                                                                cell.1))))
-                                                           (raise-listen-error_0
-                                                            "listen failed"
-                                                            lnr_0))
-                                                         (let ((closed_0
-                                                                (box #f)))
-                                                           (let ((custodian-reference_0
-                                                                  (|#%app|
-                                                                   1/unsafe-custodian-register
-                                                                   (current-custodian)
-                                                                   lnr_0
-                                                                   (lambda (fd_0)
-                                                                     (do-tcp-close
-                                                                      lnr_0
-                                                                      closed_0))
-                                                                   #f
-                                                                   #f)))
-                                                             (lambda ()
-                                                               (tcp-listener1.1
+                                            (lambda (addr_0)
+                                              (if (vector? addr_0)
+                                                (raise-listen-error_0
+                                                 "address-resolution error"
+                                                 addr_0)
+                                                (begin
+                                                  (check-current-custodian
+                                                   'tcp-listen)
+                                                  (let ((lnr_0
+                                                         (|#%app|
+                                                          rktio_listen
+                                                          (unsafe-place-local-ref
+                                                           cell.1)
+                                                          addr_0
+                                                          (min
+                                                           max-allow-wait2_0
+                                                           10000)
+                                                          reuse?3_0)))
+                                                    (if (vector? lnr_0)
+                                                      (if (racket-error?
+                                                           lnr_0
+                                                           24)
+                                                        (lambda ()
+                                                          (loop_0
+                                                           (|#%app|
+                                                            rktio_get_ipv4_family
+                                                            (unsafe-place-local-ref
+                                                             cell.1))))
+                                                        (raise-listen-error_0
+                                                         "listen failed"
+                                                         lnr_0))
+                                                      (let ((closed_0
+                                                             (box #f)))
+                                                        (let ((custodian-reference_0
+                                                               (|#%app|
+                                                                1/unsafe-custodian-register
+                                                                (current-custodian)
                                                                 lnr_0
-                                                                closed_0
-                                                                custodian-reference_0)))))))))))))
+                                                                (lambda (fd_0)
+                                                                  (do-tcp-close
+                                                                   lnr_0
+                                                                   closed_0))
+                                                                #f
+                                                                #f)))
+                                                          (lambda ()
+                                                            (tcp-listener1.1
+                                                             lnr_0
+                                                             closed_0
+                                                             custodian-reference_0)))))))))))
                                        (call-with-resolved-address.1
                                         #f
                                         family_0
@@ -36449,24 +36440,21 @@
                 (unsafe-start-atomic)
                 (begin0
                   (let ((temp21_0
-                         (|#%name|
-                          temp21
-                          (lambda (addr_0)
-                            (begin
-                              (let ((s_0
-                                     (|#%app|
-                                      rktio_udp_open
-                                      (unsafe-place-local-ref cell.1)
-                                      addr_0
-                                      (udp-default-family))))
-                                (if (vector? s_0)
-                                  (begin
-                                    (unsafe-end-atomic)
-                                    (raise-network-error
-                                     'udp-open-socket
-                                     s_0
-                                     "creation failed"))
-                                  (udp1.1 s_0 #f #f))))))))
+                         (lambda (addr_0)
+                           (let ((s_0
+                                  (|#%app|
+                                   rktio_udp_open
+                                   (unsafe-place-local-ref cell.1)
+                                   addr_0
+                                   (udp-default-family))))
+                             (if (vector? s_0)
+                               (begin
+                                 (unsafe-end-atomic)
+                                 (raise-network-error
+                                  'udp-open-socket
+                                  s_0
+                                  "creation failed"))
+                               (udp1.1 s_0 #f #f))))))
                     (call-with-resolved-address.1
                      #f
                      unsafe-undefined
@@ -36550,58 +36538,54 @@
                 (unsafe-start-atomic)
                 (begin0
                   (let ((temp30_0
-                         (|#%name|
-                          temp30
-                          (lambda (addr_0)
-                            (begin
-                              (begin
-                                (check-udp-closed.1
-                                 void
-                                 unsafe-undefined
-                                 'udp-bind!
-                                 u5_0)
-                                (begin
-                                  (if (udp-is-bound? u5_0)
-                                    (begin
-                                      (unsafe-end-atomic)
-                                      (raise-arguments-error
-                                       'udp-bind!
-                                       "udp socket is already bound"
-                                       "socket"
-                                       u5_0))
-                                    (void))
-                                  (let ((b_0
-                                         (|#%app|
-                                          rktio_udp_bind
-                                          (unsafe-place-local-ref cell.1)
-                                          (udp-s u5_0)
-                                          addr_0
-                                          reuse?4_0)))
-                                    (begin
-                                      (if (vector? b_0)
-                                        (begin
-                                          (unsafe-end-atomic)
-                                          (raise-network-error
-                                           'udp-bind!
-                                           b_0
-                                           (let ((app_0
-                                                  (if reuse?4_0
-                                                    " as reusable"
-                                                    "")))
-                                             (let ((app_1
-                                                    (if hostname6_0
-                                                      hostname6_0
-                                                      "<unspec>")))
-                                               (string-append
-                                                "can't bind"
-                                                app_0
-                                                "\n  address: "
-                                                app_1
-                                                "\n  port number: "
-                                                (number->string
-                                                 port-no7_0))))))
-                                        (void))
-                                      (set-udp-is-bound?! u5_0 #t))))))))))
+                         (lambda (addr_0)
+                           (begin
+                             (check-udp-closed.1
+                              void
+                              unsafe-undefined
+                              'udp-bind!
+                              u5_0)
+                             (begin
+                               (if (udp-is-bound? u5_0)
+                                 (begin
+                                   (unsafe-end-atomic)
+                                   (raise-arguments-error
+                                    'udp-bind!
+                                    "udp socket is already bound"
+                                    "socket"
+                                    u5_0))
+                                 (void))
+                               (let ((b_0
+                                      (|#%app|
+                                       rktio_udp_bind
+                                       (unsafe-place-local-ref cell.1)
+                                       (udp-s u5_0)
+                                       addr_0
+                                       reuse?4_0)))
+                                 (begin
+                                   (if (vector? b_0)
+                                     (begin
+                                       (unsafe-end-atomic)
+                                       (raise-network-error
+                                        'udp-bind!
+                                        b_0
+                                        (let ((app_0
+                                               (if reuse?4_0
+                                                 " as reusable"
+                                                 "")))
+                                          (let ((app_1
+                                                 (if hostname6_0
+                                                   hostname6_0
+                                                   "<unspec>")))
+                                            (string-append
+                                             "can't bind"
+                                             app_0
+                                             "\n  address: "
+                                             app_1
+                                             "\n  port number: "
+                                             (number->string port-no7_0))))))
+                                     (void))
+                                   (set-udp-is-bound?! u5_0 #t))))))))
                     (call-with-resolved-address.1
                      #f
                      unsafe-undefined
@@ -36689,37 +36673,34 @@
                      (set-udp-is-connected?! u_0 #f)))
                  (void)))
              (let ((temp41_0
-                    (|#%name|
-                     temp41
-                     (lambda (addr_0)
-                       (begin
-                         (begin
-                           (check-udp-closed.1
-                            void
-                            unsafe-undefined
-                            'udp-connect!
-                            u_0)
-                           (let ((c_0
-                                  (|#%app|
-                                   rktio_udp_connect
-                                   (unsafe-place-local-ref cell.1)
-                                   (udp-s u_0)
-                                   addr_0)))
-                             (begin
-                               (if (vector? c_0)
-                                 (begin
-                                   (unsafe-end-atomic)
-                                   (raise-network-error
-                                    'udp-connect!
-                                    c_0
-                                    (string-append
-                                     "can't connect"
-                                     "\n  address: "
-                                     hostname_0
-                                     "\n  port number: "
-                                     (number->string port-no_0))))
-                                 (void))
-                               (set-udp-is-connected?! u_0 #t)))))))))
+                    (lambda (addr_0)
+                      (begin
+                        (check-udp-closed.1
+                         void
+                         unsafe-undefined
+                         'udp-connect!
+                         u_0)
+                        (let ((c_0
+                               (|#%app|
+                                rktio_udp_connect
+                                (unsafe-place-local-ref cell.1)
+                                (udp-s u_0)
+                                addr_0)))
+                          (begin
+                            (if (vector? c_0)
+                              (begin
+                                (unsafe-end-atomic)
+                                (raise-network-error
+                                 'udp-connect!
+                                 c_0
+                                 (string-append
+                                  "can't connect"
+                                  "\n  address: "
+                                  hostname_0
+                                  "\n  port number: "
+                                  (number->string port-no_0))))
+                              (void))
+                            (set-udp-is-connected?! u_0 #t)))))))
                (call-with-resolved-address.1
                 #f
                 unsafe-undefined
@@ -37370,20 +37351,17 @@
          (unsafe-start-atomic)
          (begin0
            (let ((temp127_0
-                  (|#%name|
-                   temp127
-                   (lambda (addr_0)
-                     (begin
-                       (do-udp-maybe-send-to-addr.1
-                        enable-break?42_0
-                        unsafe-undefined
-                        wait?41_0
-                        who45_0
-                        u46_0
-                        addr_0
-                        bstr49_0
-                        start50_0
-                        end51_0))))))
+                  (lambda (addr_0)
+                    (do-udp-maybe-send-to-addr.1
+                     enable-break?42_0
+                     unsafe-undefined
+                     wait?41_0
+                     who45_0
+                     u46_0
+                     addr_0
+                     bstr49_0
+                     start50_0
+                     end51_0))))
              (call-with-resolved-address.1
               #f
               unsafe-undefined
@@ -37403,26 +37381,23 @@
       (unsafe-start-atomic)
       (begin0
         (let ((temp141_0
-               (|#%name|
-                temp141
-                (lambda (addr_0)
-                  (begin
-                    (udp-sending-evt66.1
-                     u_0
-                     (lambda ()
-                       (begin
-                         (if addr_0 (register-address-finalizer addr_0) (void))
-                         (let ((temp149_0 (lambda (thunk_0) thunk_0)))
-                           (do-udp-maybe-send-to-addr.1
-                            #f
-                            temp149_0
-                            #f
-                            who_0
-                            u_0
-                            addr_0
-                            bstr_0
-                            start_0
-                            end_0))))))))))
+               (lambda (addr_0)
+                 (udp-sending-evt66.1
+                  u_0
+                  (lambda ()
+                    (begin
+                      (if addr_0 (register-address-finalizer addr_0) (void))
+                      (let ((temp149_0 (lambda (thunk_0) thunk_0)))
+                        (do-udp-maybe-send-to-addr.1
+                         #f
+                         temp149_0
+                         #f
+                         who_0
+                         u_0
+                         addr_0
+                         bstr_0
+                         start_0
+                         end_0))))))))
           (call-with-resolved-address.1
            #f
            unsafe-undefined
@@ -38148,61 +38123,54 @@
         (let ((temp4_0 "multicast "))
           (let ((temp8_0 (udp-default-family)))
             (let ((temp10_0
-                   (|#%name|
-                    temp10
-                    (lambda (multicast-addr_0)
-                      (begin
-                        (let ((temp12_0 "interface "))
-                          (let ((temp15_0 (if hostname_0 -1 #f)))
-                            (let ((temp16_0 (udp-default-family)))
-                              (let ((temp18_0
-                                     (|#%name|
-                                      temp18
-                                      (lambda (intf-addr_0)
-                                        (begin
-                                          (begin
-                                            (check-udp-closed.1
-                                             void
-                                             unsafe-undefined
-                                             who_0
-                                             u_0)
-                                            (let ((v_0
-                                                   (|#%app|
-                                                    rktio_udp_change_multicast_group
-                                                    (unsafe-place-local-ref
-                                                     cell.1)
-                                                    (udp-s u_0)
-                                                    multicast-addr_0
-                                                    intf-addr_0
-                                                    action_0)))
-                                              (if (vector? v_0)
-                                                (let ((mode_0 "set"))
-                                                  (begin-unsafe
-                                                   (begin
-                                                     (unsafe-end-atomic)
-                                                     (begin-unsafe
-                                                      (raise-network-error
-                                                       who_0
-                                                       v_0
-                                                       (string-append
-                                                        mode_0
-                                                        "sockopt failed"))))))
-                                                (void)))))))))
-                                (let ((temp16_1 temp16_0)
-                                      (temp15_1 temp15_0)
-                                      (temp12_1 temp12_0))
-                                  (call-with-resolved-address.1
-                                   #f
-                                   temp16_1
-                                   #f
-                                   #f
-                                   #f
-                                   #f
-                                   temp12_1
-                                   who_0
-                                   hostname_0
-                                   temp15_1
-                                   temp18_0)))))))))))
+                   (lambda (multicast-addr_0)
+                     (let ((temp12_0 "interface "))
+                       (let ((temp15_0 (if hostname_0 -1 #f)))
+                         (let ((temp16_0 (udp-default-family)))
+                           (let ((temp18_0
+                                  (lambda (intf-addr_0)
+                                    (begin
+                                      (check-udp-closed.1
+                                       void
+                                       unsafe-undefined
+                                       who_0
+                                       u_0)
+                                      (let ((v_0
+                                             (|#%app|
+                                              rktio_udp_change_multicast_group
+                                              (unsafe-place-local-ref cell.1)
+                                              (udp-s u_0)
+                                              multicast-addr_0
+                                              intf-addr_0
+                                              action_0)))
+                                        (if (vector? v_0)
+                                          (let ((mode_0 "set"))
+                                            (begin-unsafe
+                                             (begin
+                                               (unsafe-end-atomic)
+                                               (begin-unsafe
+                                                (raise-network-error
+                                                 who_0
+                                                 v_0
+                                                 (string-append
+                                                  mode_0
+                                                  "sockopt failed"))))))
+                                          (void)))))))
+                             (let ((temp16_1 temp16_0)
+                                   (temp15_1 temp15_0)
+                                   (temp12_1 temp12_0))
+                               (call-with-resolved-address.1
+                                #f
+                                temp16_1
+                                #f
+                                #f
+                                #f
+                                #f
+                                temp12_1
+                                who_0
+                                hostname_0
+                                temp15_1
+                                temp18_0)))))))))
               (let ((temp8_1 temp8_0) (temp4_1 temp4_0))
                 (call-with-resolved-address.1
                  #f
@@ -38284,35 +38252,32 @@
            (let ((temp28_0 (if hostname_0 -1 #f)))
              (let ((temp29_0 (udp-default-family)))
                (let ((temp31_0
-                      (|#%name|
-                       temp31
-                       (lambda (addr_0)
-                         (begin
-                           (begin
-                             (check-udp-closed.1
-                              void
-                              unsafe-undefined
-                              'udp-multicast-set-interface!
-                              u_0)
-                             (let ((r_0
-                                    (|#%app|
-                                     rktio_udp_set_multicast_interface
-                                     (unsafe-place-local-ref cell.1)
-                                     (udp-s u_0)
-                                     addr_0)))
-                               (if (vector? r_0)
-                                 (let ((mode_0 "set"))
+                      (lambda (addr_0)
+                        (begin
+                          (check-udp-closed.1
+                           void
+                           unsafe-undefined
+                           'udp-multicast-set-interface!
+                           u_0)
+                          (let ((r_0
+                                 (|#%app|
+                                  rktio_udp_set_multicast_interface
+                                  (unsafe-place-local-ref cell.1)
+                                  (udp-s u_0)
+                                  addr_0)))
+                            (if (vector? r_0)
+                              (let ((mode_0 "set"))
+                                (begin-unsafe
+                                 (begin
+                                   (unsafe-end-atomic)
                                    (begin-unsafe
-                                    (begin
-                                      (unsafe-end-atomic)
-                                      (begin-unsafe
-                                       (raise-network-error
-                                        'udp-multicast-set-interface!
-                                        r_0
-                                        (string-append
-                                         mode_0
-                                         "sockopt failed"))))))
-                                 (void)))))))))
+                                    (raise-network-error
+                                     'udp-multicast-set-interface!
+                                     r_0
+                                     (string-append
+                                      mode_0
+                                      "sockopt failed"))))))
+                              (void)))))))
                  (let ((temp29_1 temp29_0) (temp28_1 temp28_0))
                    (call-with-resolved-address.1
                     #f
diff --git a/racket/src/cs/schemified/schemify.scm b/racket/src/cs/schemified/schemify.scm
index d7ff05787e..6245bd5f4f 100644
--- a/racket/src/cs/schemified/schemify.scm
+++ b/racket/src/cs/schemified/schemify.scm
@@ -26654,16 +26654,13 @@
                                                                         target_0
                                                                         'cify))))
                                                                 (let ((temp105_0
-                                                                       (|#%name|
-                                                                        temp105
-                                                                        (lambda (v_3
-                                                                                 knowns_2)
-                                                                          (begin
-                                                                            (schemify/knowns_0
-                                                                             knowns_2
-                                                                             inline-fuel_0
-                                                                             'fresh
-                                                                             v_3))))))
+                                                                       (lambda (v_3
+                                                                                knowns_2)
+                                                                         (schemify/knowns_0
+                                                                          knowns_2
+                                                                          inline-fuel_0
+                                                                          'fresh
+                                                                          v_3))))
                                                                   (struct-convert-local.1
                                                                    #f
                                                                    target_0
@@ -27893,16 +27890,13 @@
                                                                   rhss_0
                                                                   bodys_0)
                                                                  (let ((temp129_0
-                                                                        (|#%name|
-                                                                         temp129
-                                                                         (lambda (v_3
-                                                                                  knowns_2)
-                                                                           (begin
-                                                                             (schemify/knowns_0
-                                                                              knowns_2
-                                                                              inline-fuel_0
-                                                                              'fresh
-                                                                              v_3))))))
+                                                                        (lambda (v_3
+                                                                                 knowns_2)
+                                                                          (schemify/knowns_0
+                                                                           knowns_2
+                                                                           inline-fuel_0
+                                                                           'fresh
+                                                                           v_3))))
                                                                    (let ((c1_0
                                                                           (struct-convert-local.1
                                                                            #t
diff --git a/racket/src/cs/schemified/thread.scm b/racket/src/cs/schemified/thread.scm
index b8014c464d..3e4ab8c3b5 100644
--- a/racket/src/cs/schemified/thread.scm
+++ b/racket/src/cs/schemified/thread.scm
@@ -6069,11 +6069,7 @@
            (raise-argument-error 'make-custodian-box "custodian?" c_0))
          (let ((b_0 (custodian-box1.1 v_0 (custodian-get-shutdown-sema c_0))))
            (begin
-             (if (let ((temp76_0
-                        (|#%name|
-                         temp76
-                         (lambda (b_1)
-                           (begin (set-custodian-box-v! b_1 #f))))))
+             (if (let ((temp76_0 (lambda (b_1) (set-custodian-box-v! b_1 #f))))
                    (do-custodian-register.1 #f #t #f #t c_0 b_0 temp76_0))
                (void)
                (begin-unsafe
@@ -12414,8 +12410,7 @@
                     (if (all-threads-poll-done?)
                       (if (not (null? callbacks_0))
                         (begin
-                          (let ((temp4_0
-                                 (|#%name| temp4 (lambda () (begin (void))))))
+                          (let ((temp4_0 (lambda () (void))))
                             (do-make-thread.1 #t #f #f #f 'callbacks temp4_0))
                           (poll-and-select-thread! TICKS callbacks_0))
                         (if (if (not poll-now?_0) (check-external-events) #f)
@@ -12800,72 +12795,69 @@
                                  break-enabled-key
                                  (make-thread-cell #f)
                                  (let ((temp5_0
-                                        (|#%name|
-                                         temp5
-                                         (lambda ()
-                                           (begin
-                                             (begin
-                                               (1/semaphore-wait ready-sema_0)
-                                               (let ((with-handlers-predicate7_0
-                                                      (|#%name|
-                                                       with-handlers-predicate7
-                                                       (lambda (x_0)
-                                                         (begin #t)))))
-                                                 (let ((with-handlers-handler8_0
-                                                        (|#%name|
-                                                         with-handlers-handler8
-                                                         (lambda (x_0)
-                                                           (begin
-                                                             (begin
-                                                               (set! result-kind_0
-                                                                 'exn)
-                                                               (set! result_0
-                                                                 x_0)))))))
-                                                   (let ((bpz_0
-                                                          (continuation-mark-set-first
-                                                           #f
-                                                           break-enabled-key)))
-                                                     (call-handled-body
+                                        (lambda ()
+                                          (begin
+                                            (1/semaphore-wait ready-sema_0)
+                                            (let ((with-handlers-predicate7_0
+                                                   (|#%name|
+                                                    with-handlers-predicate7
+                                                    (lambda (x_0)
+                                                      (begin #t)))))
+                                              (let ((with-handlers-handler8_0
+                                                     (|#%name|
+                                                      with-handlers-handler8
+                                                      (lambda (x_0)
+                                                        (begin
+                                                          (begin
+                                                            (set! result-kind_0
+                                                              'exn)
+                                                            (set! result_0
+                                                              x_0)))))))
+                                                (let ((bpz_0
+                                                       (continuation-mark-set-first
+                                                        #f
+                                                        break-enabled-key)))
+                                                  (call-handled-body
+                                                   bpz_0
+                                                   (lambda (e_0)
+                                                     (select-handler/no-breaks
+                                                      e_0
                                                       bpz_0
-                                                      (lambda (e_0)
-                                                        (select-handler/no-breaks
-                                                         e_0
-                                                         bpz_0
-                                                         (list
-                                                          (cons
-                                                           with-handlers-predicate7_0
-                                                           with-handlers-handler8_0))))
-                                                      (lambda ()
-                                                        (with-continuation-mark*
-                                                         authentic
-                                                         break-enabled-key
-                                                         init-break-cell_0
-                                                         (begin
-                                                           (set! result_0
-                                                             (call-with-continuation-barrier
+                                                      (list
+                                                       (cons
+                                                        with-handlers-predicate7_0
+                                                        with-handlers-handler8_0))))
+                                                   (lambda ()
+                                                     (with-continuation-mark*
+                                                      authentic
+                                                      break-enabled-key
+                                                      init-break-cell_0
+                                                      (begin
+                                                        (set! result_0
+                                                          (call-with-continuation-barrier
+                                                           (lambda ()
+                                                             (call-with-values
                                                               (lambda ()
-                                                                (call-with-values
-                                                                 (lambda ()
-                                                                   (call-with-continuation-prompt
-                                                                    thunk2_0
+                                                                (call-with-continuation-prompt
+                                                                 thunk2_0
+                                                                 (default-continuation-prompt-tag)
+                                                                 (lambda (thunk_0)
+                                                                   (abort-current-continuation
                                                                     (default-continuation-prompt-tag)
-                                                                    (lambda (thunk_0)
-                                                                      (abort-current-continuation
-                                                                       (default-continuation-prompt-tag)
-                                                                       thunk_0))))
-                                                                 list))))
-                                                           (begin
-                                                             (start-atomic)
-                                                             (begin0
-                                                               (begin
-                                                                 (set! result-kind_0
-                                                                   'value)
-                                                                 (thread-dead!
-                                                                  (check-not-unsafe-undefined
-                                                                   t_0
-                                                                   't_79)))
-                                                               (end-atomic)))
-                                                           (engine-block))))))))))))))
+                                                                    thunk_0))))
+                                                              list))))
+                                                        (begin
+                                                          (start-atomic)
+                                                          (begin0
+                                                            (begin
+                                                              (set! result-kind_0
+                                                                'value)
+                                                              (thread-dead!
+                                                               (check-not-unsafe-undefined
+                                                                t_0
+                                                                't_79)))
+                                                            (end-atomic)))
+                                                        (engine-block))))))))))))
                                    (do-make-thread.1
                                     #f
                                     cust_0