From f866bdb99bca41e02cbfd46ec39e40ac328789c2 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Hans=20H=C3=BCbner?= <hans.huebner@gmail.com>
Date: Wed, 16 Feb 2011 12:24:35 +0000
Subject: [PATCH] set content-type to text/html when sending error page from
 file

---
 acceptor.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/acceptor.lisp b/acceptor.lisp
index 392289c..350e758 100644
--- a/acceptor.lisp
+++ b/acceptor.lisp
@@ -642,6 +642,7 @@ handler."
            (when error-file-template-pathname
              (with-open-file (file error-file-template-pathname :if-does-not-exist nil :element-type 'character)
                (when file
+                 (setf (content-type*) "text/html")
                  (substitute-request-context-variables (file-contents file))))))))
     (or (unless (< 300 http-status-code)
           (call-next-method))           ; don't ever try template for positive return codes
-- 
2.11.4.GIT