diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm
index b2d931d..1734658 100644
--- a/scheme/httpd/core.scm
+++ b/scheme/httpd/core.scm
@@ -275,7 +275,7 @@
 	    (if (and (pair? path) (string=? (car path) ""))
 		(let* ((addr (socket-local-address socket))
 		       (local-name (or (httpd-options-fqdn options)
-				       (socket-address->fqdn addr #t)))
+				       (socket-address->fqdn addr)))
 		       (portnum (or (httpd-options-reported-port options)
 				    (my-reported-port addr))))
 		  (make-http-url (make-server #f #f