--- a/libsrc/gauche/process.scm
+++ b/libsrc/gauche/process.scm
@@ -880,7 +880,7 @@
                  [else (error "Invalid :error argument:" stderr)])))
   (cond [(string? command)
          (rc (cond-expand [gauche.os.windows `("cmd.exe" "/c" ,command)]
-                          [else              `("/bin/sh" "-c" ,command)]))]
+                          [else              `("@TERMUX_PREFIX@/bin/sh" "-c" ,command)]))]
         [(and (list? command) (every list? command))
          (apply run-pipeline command
                 :input stdin :output stdout
