diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm
index 208efdf..0792eb4 100644
--- a/scheme/httpd/core.scm
+++ b/scheme/httpd/core.scm
@@ -424,16 +424,17 @@ the requested method (~A).~%"
       (let ((result
 	     (if fqdn-cache
 		 (or (and (equal? used-addr addr)
-			  (equal? used-options options)
-			  fqdn-cache)
-		     (begin
-		       (set! fqdn-cache (or (httpd-options-fqdn options)
-					    (dns-lookup-ip (socket-address->string addr))
-					    (host-info:name (host-info addr))))
-		       (set! used-addr addr)
-		       (set! used-options options)
-		       fqdn-cache)))))
+			  (equal? used-options options))
+		     fqdn-cache)
+		 (begin
+		   (set! fqdn-cache (or (httpd-options-fqdn options)
+					(dns-lookup-ip (socket-address->string addr))
+					(host-info:name (host-info addr))))
+		   (set! used-addr addr)
+		   (set! used-options options)
+		   fqdn-cache))))
 	(release-lock fqdn-lock)
+	
 	result))))
 
 (define (my-reported-port addr options)