diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm
index 76dd27f..529ba3b 100644
--- a/scheme/httpd/core.scm
+++ b/scheme/httpd/core.scm
@@ -421,7 +421,7 @@ the requested method (~A).~%"
   (or *fqdn-cache*
       (begin
       (set! *fqdn-cache* (or (httpd-options-fqdn options)
-			     (dns-lookup-ip addr)
+			     (dns-lookup-ip (socket-address->string addr))
 			     (host-info:name (host-info addr))))
       *fqdn-cache*)))
 
@@ -429,3 +429,4 @@ the requested method (~A).~%"
   (or (httpd-options-reported-port options)
       (receive (ip-addr portnum) (socket-address->internet-address addr)
 	portnum)))
+