diff --git a/scheme/httpd/handlers.scm b/scheme/httpd/handlers.scm
index ffdcbc2..b4e55bc 100644
--- a/scheme/httpd/handlers.scm
+++ b/scheme/httpd/handlers.scm
@@ -53,7 +53,7 @@
 	   (let ((val (string-trim  maybe-val)))
 	     (or (string-ci=? hostname val)
 		 (string-prefix-ci? (string-append hostname ":") val)))
-	   (http-error (status-code bad-request) "No Host: header"))))
+	   (http-error (status-code bad-request) req "No Host: header"))))
    handler default-handler))
 
 ;; selects handler according to path-prefix