From 36320cca64d8e1bbf0458f7fb7bd3866f475fd31 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 27 Dec 2005 17:49:13 +0000
Subject: [PATCH] 300.3

svn: r1698

original commit: c38876b84876d329151df7eb6941cce8d38eab27
---
 collects/mzlib/cm.ss | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/cm.ss b/collects/mzlib/cm.ss
index 95523cf..ee2072d 100644
--- a/collects/mzlib/cm.ss
+++ b/collects/mzlib/cm.ss
@@ -138,7 +138,12 @@
 	       (lambda (out)
 		 (with-handlers ((exn:fail?
 				  (lambda (ex) (compilation-failure mode path zo-name #f (exn-message ex)))))
-		   (write code out))
+		   (parameterize ([current-write-relative-directory
+				   (let-values ([(base name dir?) (split-path path)])
+				     (if (eq? base 'relative)
+					 (current-directory)
+					 (path->complete-path base (current-directory))))])
+		     (write code out)))
 		 ;; redundant, but close as early as possible:
 		 (close-output-port out)
 		 ;; Note that we check time and write .deps before returning from with-compile-output...