Fix missing HTTP headers

diff --git a/contrib/furnace/responder.factor b/contrib/furnace/responder.factor
index 17c9ee94749139cc130c2a86a61913ea7abe952d..43d11ae46b4749525d3593918ee3f0b72caf038d 100644 (file)
--- a/contrib/furnace/responder.factor
+++ b/contrib/furnace/responder.factor
@@ -102,7 +102,7 @@ SYMBOL: model
     template-path get swap path+ call-template ;
 
 : render-page ( model template title -- )
-    [
+    serving-html [
         [
             render-template
         ] html-document

diff --git a/contrib/furnace/tools/help.factor b/contrib/furnace/tools/help.factor
index 356c9faa8efa60fab4a99e6ede10fe4cddc83492..51f20df0ae53ae3a9179e765449d566d83e8e8cb 100644 (file)
--- a/contrib/furnace/tools/help.factor
+++ b/contrib/furnace/tools/help.factor
@@ -1,9 +1,11 @@
 ! Copyright (C) 2005, 2006 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 IN: furnace:help
-USING: furnace help html kernel sequences words strings io ;
+USING: furnace help httpd html kernel sequences words strings
+io ;
 
 : show-help ( topic -- )
+    serving-html
     dup article-title [
         [ help ] with-html-stream
         <br/>