diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm
index 8882453..1ad2161 100644
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@@ -260,8 +260,7 @@
 
     (if loc
 	(if (uri-has-protocol? (string-trim loc))
-	    (make-error-response (status-code moved-perm) req
-				      loc loc)
+	    (make-error-response (status-code moved-perm) req loc)
 	    (make-redirect-response (string-trim loc)))
 	;; Send the response header back to the client
 	(make-response ;code message seconds mime extras body
diff --git a/scheme/httpd/file-dir-handler.scm b/scheme/httpd/file-dir-handler.scm
index 1453472..e5e1fdd 100644
--- a/scheme/httpd/file-dir-handler.scm
+++ b/scheme/httpd/file-dir-handler.scm
@@ -254,7 +254,6 @@
 	      ((directory)		; Send back a redirection "foo" -> "foo/"
 	       (make-error-response
 		(status-code moved-perm) req
-		(string-append (request-uri req) "/")
 		(string-append (http-url->string (request-url req))
 			       "/")))