From 6cec0bd74d442d710344ce569b7ab6cafa72234e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 16 Oct 2004 16:26:12 +0000
Subject: [PATCH] .

original commit: 7238f06a9482b75ca6714d59e1e58e3393baa5df
---
 collects/tests/mzscheme/embed.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/tests/mzscheme/embed.ss b/collects/tests/mzscheme/embed.ss
index 943bcdb29e..2ffa11ba44 100644
--- a/collects/tests/mzscheme/embed.ss
+++ b/collects/tests/mzscheme/embed.ss
@@ -35,7 +35,11 @@
     (parameterize ([current-directory (find-system-path 'temp-dir)])
       (when (file-exists? "stdout")
 	(delete-file "stdout"))
-      (system* exe))
+      (system* (if (and mred? (eq? 'macosx (system-type)))
+		   (let-values ([(base name dir?) (split-path exe)])
+		     (build-path exe "Contents" "MacOS"
+				 (path-replace-suffix name #"")))
+		   exe)))
     (when plthome
       (putenv "PLTHOME" plthome))
     (when collects