diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 06f04f0..8cf4d59 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -335,7 +335,7 @@ parseListParaItemCommon :: ReadP [MdToken]
parseListParaItemCommon = do
char '\n'
lines <- greedyParse1 ((string " " <|> string "\t") *> parseTillEol)
- let res = fst $ leftmostLongestParse (greedyParse1 parsePara) (init $ unlines lines)
+ let res = fst $ leftmostLongestParse (greedyParse1 parseBlockquote <++ greedyParse1 parsePara) (init $ unlines lines)
char '\n'
return res -- I only wrap this in a document because I want some way of converting [MdToken] to MdToken, without any overhead. There is no other reason to wrap it in a Document.