@@ -60,7 +60,7 @@ readHtml = readWith parseHtml
6060--
6161
6262eitherBlockOrInline = ["applet", "button", "del", "iframe", "ins",
63− "map", "area", "object", "script"]
63+ "map", "area", "object"]
6464
6565inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",
6666 "br", "cite", "code", "dfn", "em", "font", "i", "img",
@@ -73,7 +73,7 @@ blockHtmlTags = ["address", "blockquote", "center", "dir", "div",
7373 "h5", "h6", "hr", "isindex", "menu", "noframes",
7474 "noscript", "ol", "p", "pre", "table", "ul", "dd",
7575 "dt", "frameset", "li", "tbody", "td", "tfoot",
76− "th", "thead", "tr"] ++ eitherBlockOrInline
76+ "th", "thead", "tr", "script"] ++ eitherBlockOrInline
7777
7878--
7979-- HTML utility functions