From 14bfcc52913a3370472c5af2fbeffdf7a99cf1cf Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 5 Feb 2002 23:38:38 +0000
Subject: [PATCH] .

original commit: 25ff63cbb239f2a9a41bc0213c31a53b45f3cb4b
---
 collects/mzlib/process.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/process.ss b/collects/mzlib/process.ss
index bffd294..4d6deac 100644
--- a/collects/mzlib/process.ss
+++ b/collects/mzlib/process.ss
@@ -19,7 +19,11 @@
 			  (let ([cmd (build-path d "cmd.exe")])
 			    (if (file-exists? cmd)
 				cmd
-				(build-path d "command.com"))))])
+				(let ([cmd (build-path d "command.com")])
+				  (if (file-exists? cmd)
+				      cmd
+				      ;; One last try: up a dir
+				      (build-path d '.. "command.com"))))))])
 		   (list cmd
 			 'exact
 			 (format "~a /c ~a" cmd argstr))))