Simplify pathnames for conversion to standard URIs to avoid dottiness.

diff --git a/src/runtime/load.scm b/src/runtime/load.scm
index 32d353c69a19372c907f264b9c205a1d86cbc27f..b4be85cc4785762063607db0d3b03757d4eb46b3 100644 (file)
--- a/src/runtime/load.scm
+++ b/src/runtime/load.scm
@@ -427,7 +427,9 @@ USA.
 (define (pathname->standard-uri pathname)
   (let ((uri
         (pathname->uri
-         (enough-pathname pathname (standard-library-directory-pathname)))))
+         (enough-pathname
+          (pathname-simplify pathname)
+          (pathname-simplify (standard-library-directory-pathname))))))
     (if (uri-absolute? uri)
        uri
        (system-library-uri uri))))