diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index e1f1e1af5..aef9e1962 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -348,7 +348,7 @@ htmlComment :: GenParser Char st [Char]
 htmlComment = try $ do
   string "<!--"
   comment <- many $ noneOf "-"
-                 <|> try (char '-' >>~ notFollowedBy (char '-' >> char '>'))
+               <|> try (char '-' >>~ notFollowedBy (try (char '-' >> char '>')))
   string "-->"
   return $ "<!--" ++ comment ++ "-->"