diff --git a/scheme/httpd/handlers.scm b/scheme/httpd/handlers.scm
index dcd4dea..a258693 100644
--- a/scheme/httpd/handlers.scm
+++ b/scheme/httpd/handlers.scm
@@ -53,15 +53,6 @@
 	   (string-prefix-ci? (string-append hostname ":") body))))
    handler default-handler))
 
-(define (get-header headers tag)
-  (cond
-   ((assq tag headers) => cdr)
-   (else
-    (http-error (status-code bad-request) #f
-		(string-append "Request did not contain "
-			       (symbol->string tag)
-			       " header")))))
-
 ;; selects handler according to path-prefix
 ;; if path-prefix matches, handler is called without the path-prefix
 (define (make-path-prefix-handler path-prefix handler default-handler)