diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,5 +1,9 @@
 # Changelog for commonmark
 
+## 0.1.0.2
+
+* Fix tight/loose list detection with multiple blank lines at end (#56).
+
 ## 0.1.0.1
 
 * Set source position when we add a token in gobbleSpaces (#54).
diff --git a/commonmark.cabal b/commonmark.cabal
--- a/commonmark.cabal
+++ b/commonmark.cabal
@@ -1,6 +1,6 @@
 cabal-version:  2.2
 name:           commonmark
-version:        0.1.0.1
+version:        0.1.0.2
 synopsis:       Pure Haskell commonmark parser.
 description:
    This library provides the core data types and functions
diff --git a/src/Commonmark/Blocks.hs b/src/Commonmark/Blocks.hs
--- a/src/Commonmark/Blocks.hs
+++ b/src/Commonmark/Blocks.hs
@@ -65,7 +65,6 @@
 #endif
 import           Data.Char                 (isAsciiUpper, isDigit, isSpace)
 import           Data.Dynamic
-import           Data.List                 (sort)
 import           Data.Text                 (Text)
 import qualified Data.Map.Strict           as M
 import qualified Data.Text                 as T
@@ -835,16 +834,15 @@
           let lidata = fromDyn (blockData cdata)
                                  (ListItemData (BulletList '*')
                                    0 False False)
-          let blanks = removeConsecutive $ sort $
-                         concat $ blockBlanks cdata :
+          let allblanks = concat $ blockBlanks cdata :
                                   map (blockBlanks . rootLabel)
                                   (filter ((== "List") . blockType .
                                    blockSpec . rootLabel) children)
           curline <- sourceLine <$> getPosition
-          let blanksAtEnd = case blanks of
+          let blanksAtEnd = case allblanks of
                                    (l:_) -> l >= curline - 1
                                    _     -> False
-          let blanksInside = case length blanks of
+          let blanksInside = case length (removeConsecutive allblanks) of
                                 n | n > 1     -> True
                                   | n == 1    -> not blanksAtEnd
                                   | otherwise -> False
diff --git a/test/regression.md b/test/regression.md
--- a/test/regression.md
+++ b/test/regression.md
@@ -172,3 +172,25 @@
 </li>
 </ol>
 ````````````````````````````````
+
+Issue #56.
+
+```````````````````````````````` example
+- a
+  - b
+  - c
+
+
+
+.
+<ul>
+<li>a
+<ul>
+<li>b
+</li>
+<li>c
+</li>
+</ul>
+</li>
+</ul>
+````````````````````````````````