From 40e7f286e02ab8fc39d7f14dbf526eff6f55ab4a Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 9 Jan 2019 03:48:54 +0000
Subject: [PATCH] Simplify pathnames for conversion to standard URIs to avoid
 dottiness.

---
 src/runtime/load.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/runtime/load.scm b/src/runtime/load.scm
index 32d353c69..b4be85cc4 100644
--- 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))))
-- 
2.25.1