diff --git a/bamboo.cabal b/bamboo.cabal
--- a/bamboo.cabal
+++ b/bamboo.cabal
@@ -1,5 +1,5 @@
 Name:                 bamboo
-Version:              2009.5.18.1
+Version:              2009.5.18.2
 Build-type:           Simple
 Synopsis:             A simple blog middleware on hack
 Description:          A simple blog middleware on hack
diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,10 @@
+2009.5.18.2
+-----------
+
+### Fix
+
+* use renderHtml for strict html headers
+
 2009.5.18.1
 -----------
 
diff --git a/src/Bamboo/Controller/Application.hs b/src/Bamboo/Controller/Application.hs
--- a/src/Bamboo/Controller/Application.hs
+++ b/src/Bamboo/Controller/Application.hs
@@ -80,7 +80,7 @@
     >>= output_plain_html
   where
     g = Post.etag_post_list
-    f state = PostV.list state > show > return
+    f state = PostV.list state > render_html > return
 
 index_feed _ = do
   posts <- list
@@ -105,7 +105,7 @@
     >>= output_plain_html
   where
     g = Post.etag_post
-    f state comments x = x.return ^ PostV.view state comments ^ show
+    f state comments x = x.return ^ PostV.view state comments ^ render_html
 
 static env = do
   let id = env.uri
@@ -134,7 +134,7 @@
         >>= output_plain_html
       where
         g = Post.etag_post_list
-        f state xs = xs.TagV.view state.show.return
+        f state xs = xs.TagV.view state.render_html.return
         
 tag_feed env = do
   let id = env .uri .split "/" .init .join "/"
diff --git a/src/Bamboo/Helper/Helper.hs b/src/Bamboo/Helper/Helper.hs
--- a/src/Bamboo/Helper/Helper.hs
+++ b/src/Bamboo/Helper/Helper.hs
@@ -106,7 +106,8 @@
 div_class_id x y = thediv ! [theclass x, id y]
 
 xml_header = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
-output_html = show > output_plain_html
+render_html = renderHtml
+output_html = render_html > output_plain_html
 
 output_plain_html x = 
   def