diff --git a/scheme/lib/url.scm b/scheme/lib/url.scm
index eec5db3..c3c8328 100644
--- a/scheme/lib/url.scm
+++ b/scheme/lib/url.scm
@@ -247,7 +247,7 @@
 
 ;;; Unparse a http-url record into its corresponding Request_URI
 
-(define (http-url->uri-string http-url)
+(define (http-url->url-string http-url)
 
   (let* ((host (http-url-host http-url))
 	(scheme-and-host-string 
diff --git a/scheme/packages.scm b/scheme/packages.scm
index 4d41fd2..efbb626 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -65,7 +65,7 @@
 	  http-url-query
 
 	  uri-string->http-url
-	  http-url->uri-string))
+	  http-url->url-string))
 
 (define-interface ftp-library-interface
   (export copy-port->port-binary