300.3

svn: r1698

original commit: c38876b84876d329151df7eb6941cce8d38eab27

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...