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