diff --git a/racket/src/cs/schemified/io.scm b/racket/src/cs/schemified/io.scm
index 0885ebd951..f009a81103 100644
--- a/racket/src/cs/schemified/io.scm
+++ b/racket/src/cs/schemified/io.scm
@@ -36594,10 +36594,13 @@
                                  show_mode_0))))))
                      (begin
                        (if (vector? r_0)
-                         (let ((err_0 "failed"))
+                         (let ((base-msg_0 "failed"))
                            (raise
                             (let ((app_0
-                                   (format-rktio-message 'who err_0 r_0)))
+                                   (format-rktio-message
+                                    'shell-execute
+                                    r_0
+                                    base-msg_0)))
                               (|#%app|
                                exn:fail
                                app_0
diff --git a/racket/src/io/subprocess/main.rkt b/racket/src/io/subprocess/main.rkt
index 556df96d6a..4dfc6fba2e 100644
--- a/racket/src/io/subprocess/main.rkt
+++ b/racket/src/io/subprocess/main.rkt
@@ -303,7 +303,7 @@
                                  (string->bytes/utf-8 parameters)
                                  (->host (->path dir) who '(exists))
                                  show_mode))
-  (when (rktio-error? r) (raise-rktio-error 'who "failed" r))
+  (when (rktio-error? r) (raise-rktio-error who r "failed"))
   #f)
 
 ;; ----------------------------------------