@@ -77,7 +77,7 @@ inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",
7777blockHtmlTags :: [[Char]]
7878blockHtmlTags = ["address", "blockquote", "body", "center", "dir", "div",
7979 "dl", "fieldset", "form", "h1", "h2", "h3", "h4",
80− "h5", "h6", "hr", "html", "isindex", "menu", "noframes",
80+ "h5", "h6", "head", "hr", "html", "isindex", "menu", "noframes",
8181 "noscript", "ol", "p", "pre", "table", "ul", "dd",
8282 "dt", "frameset", "li", "tbody", "td", "tfoot",
8383 "th", "thead", "tr", "script"] ++ eitherBlockOrInline