diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm
index f14b7a3..4fcb31b 100644
--- a/scheme/httpd/core.scm
+++ b/scheme/httpd/core.scm
@@ -171,8 +171,7 @@
 			    (socket:inport sock)
 			    (socket:outport sock)
 			    options)
-
-	(http-log req http-status/ok))))))
+	)))))
 
 (define (redirect-request req response socket options)
   (let* ((new-location-uri (redirect-body-location (response-body response)))
@@ -325,7 +324,9 @@
       (send-http-headers response output-port))
 
   (if (not (string=? (request:method request) "HEAD"))
-      (display-http-body (response-body response) input-port output-port options)))
+      (display-http-body (response-body response) input-port output-port options))
+
+  (http-log request (response-code response)))
 
 (define (send-http-header-fields headers port)
   (for-each (lambda (pair)