diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,8 @@
+## MMark 0.0.1.1
+
+* Fixed a bug in skipping of headers (only one newline after the header line
+  was picked, not all white space up to next block).
+
 ## MMark 0.0.1.0
 
 * Initial release.
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -213,7 +213,7 @@
 
 * YAML block must start with three hyphens `---` and end with three hyphens
   `---`. It can only be placed at the beginning of a markdown document.
-  Trailing white space after the `---** sequences is tolerated.
+  Trailing white space after the `---` sequences is allowed.
 
 ## Contribution
 
diff --git a/Text/MMark/Parser.hs b/Text/MMark/Parser.hs
--- a/Text/MMark/Parser.hs
+++ b/Text/MMark/Parser.hs
@@ -241,7 +241,7 @@
   where
     start = casualLevel *> count' 1 6 (char '#')
     recover err =
-      Left err <$ takeWhileP Nothing notNewline <* optional eol
+      Left err <$ takeWhileP Nothing notNewline <* sc
 
 pFencedCodeBlock :: Parser (Block Isp)
 pFencedCodeBlock = do
diff --git a/mmark.cabal b/mmark.cabal
--- a/mmark.cabal
+++ b/mmark.cabal
@@ -1,5 +1,5 @@
 name:                 mmark
-version:              0.0.1.0
+version:              0.0.1.1
 cabal-version:        >= 1.18
 tested-with:          GHC==7.10.3, GHC==8.0.2, GHC==8.2.1
 license:              BSD3
diff --git a/tests/Text/MMarkSpec.hs b/tests/Text/MMarkSpec.hs
--- a/tests/Text/MMarkSpec.hs
+++ b/tests/Text/MMarkSpec.hs
@@ -1053,13 +1053,18 @@
       it "a composite, complex example" $
         "***Something ~~~is not~~ going~ ^so well^** today*." ==->
           "<p><em><strong>Something <sub><del>is not</del> going</sub> <sup>so well</sup></strong> today</em>.</p>\n"
-    context "multiple parse errors" $
+    context "multiple parse errors" $ do
       it "they are reported in correct order" $ do
         let s = "Foo `\n\nBar `.\n"
             pe = ueib <> etok '`' <> elabel "code span content"
         s ~~->
           [ err (posN 5  s) pe
           , err (posN 13 s) pe ]
+      it "invalid headers are skipped properly" $ do
+        let s = "#My header\n\nSomething goes __here __.\n"
+        s ~~->
+          [ err (posN 1 s) (utok 'M' <> etok '#' <> elabel "white space")
+          , errFancy (posN 35 s) (nonFlanking "_") ]
     context "given a complete, comprehensive document" $
       it "outputs expected the HTML fragment" $
         withFiles "data/comprehensive.md" "data/comprehensive.html"