From 74961f8bd49a2784e839c34d1b8ffeede064312c Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Thu, 25 Apr 2002 16:30:14 +0000
Subject: [PATCH] *** empty log message ***

---
 uri.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/uri.scm b/uri.scm
index 86e79d8..6f506ce 100644
--- a/uri.scm
+++ b/uri.scm
@@ -170,7 +170,7 @@
 		 s)))    ; new length of escaped string
       (if (= nlen (string-length s)) s
 	  (let ((ns (make-string nlen))) 
-	    (string-fold-right
+	    (string-fold-left
 	     (lambda (c i)     ; replace each occurance of an
 			       ; character to escape with %ff where ff
 			       ; is the ascii-code in hexadecimal