diff --git a/collects/mzlib/process.ss b/collects/mzlib/process.ss index 1ea3e41..df7e93e 100644 --- a/collects/mzlib/process.ss +++ b/collects/mzlib/process.ss @@ -28,8 +28,7 @@ (build-path d 'up "command.com"))))))]) (list cmd 'exact - (string->bytes/utf-8 - (format "~a /c ~a" cmd argstr))))) + (format "~a /c ~a" (path->string cmd) argstr)))) (else (raise-mismatch-error who (format "~a: don't know what shell to use for platform: " who)