From b141c4fc326a9a40b0eb5b2bfe91667f50a72fa5 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 27 May 2014 08:55:37 -0700
Subject: [PATCH] Fix for bug #42412: "scheme --load ./file" fails.

Fix pathname->uri to handle the new directory name 'HERE, introduced
in commit 00aab1c.  Thanks to David Kinzer <dtkinzer>.
---
 src/runtime/pathnm.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/runtime/pathnm.scm b/src/runtime/pathnm.scm
index 273254362..766a52819 100644
--- a/src/runtime/pathnm.scm
+++ b/src/runtime/pathnm.scm
@@ -305,6 +305,7 @@ these rules:
 	      (map (lambda (x)
 		     (cond ((eq? x 'WILD) "*")
 			   ((eq? x 'UP) "..")
+			   ((eq? x 'HERE) ".")
 			   (else (string->utf8-string x))))
 		   (append (if (pathname-absolute? pathname)
 			       (list "")
-- 
2.25.1