.

original commit: fbacc41da86dc10d1bb4617c561cc71a3e50fea6
2001-10-12 20:05:02 +00:00 · 2001-10-12 20:05:02 +00:00 · 4bb6161e7e
commit 4bb6161e7e
parent 25a7b999f8
1 changed files with 4 additions and 1 deletions
--- a/collects/mzlib/etc.ss
+++ b/collects/mzlib/etc.ss
@ -439,7 +439,10 @@
 	    (let-values ([(base file dir?) (split-path source)])
 	      (cond
 	       [(string? base)
-		(with-syntax ([base base])
+		(with-syntax ([base (path->complete-path 
+				     base
+				     (or (current-load-relative-directory)
+					 (current-directory)))])
 		  (syntax base))]
 	       [else ; must be (eq? base 'relative)
 		(local)]))