PR7576

svn: r833 original commit: 8572e709688377a6eca3dc09b629a177b475e6ed
2005-09-11 17:43:23 +00:00 · 2005-09-11 17:43:23 +00:00 · 192d52ac51
commit 192d52ac51
parent 226a2c34a8
1 changed files with 1 additions and 1 deletions
--- a/collects/net/url-unit.ss
+++ b/collects/net/url-unit.ss
@ -72,7 +72,7 @@
                (fragment (url-fragment url)))
            (cond
             ((and scheme (string=? scheme "file"))
-              (string-append "file:" path
+              (string-append "file:" (combine-path-strings path)
                             (or (and (not fragment) "")
                                 (string-append "#" fragment))))
             (else