@@ -164,7 +164,9 @@ anyHtmlTag :: GenParser Char ParserState [Char]
164164anyHtmlTag = try $ do
165165 char '<'
166166 spaces
167− tag <- many1 alphaNum
167+ first <- letter
168+ rest <- many (alphaNum <|> char ':')
169+ let tag = first : rest
168170 attribs <- many htmlAttribute
169171 spaces
170172 ender <- option "" (string "/")
@@ -181,7 +183,9 @@ anyHtmlEndTag = try $ do
181183 spaces
182184 char '/'
183185 spaces
184− tag <- many1 alphaNum
186+ first <- letter
187+ rest <- many (alphaNum <|> char ':')
188+ let tag = first : rest
185189 spaces
186190 char '>'
187191 let result = "</" ++ tag ++ ">"