diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs
index b315f0e9238e..4eeedfdc3e91 100644
--- a/src/Text/Pandoc/Writers/AsciiDoc.hs
+++ b/src/Text/Pandoc/Writers/AsciiDoc.hs
@@ -104,7 +104,7 @@ pandocToAsciiDoc opts (Pandoc meta blocks) = do
               (blockListToAsciiDoc opts)
               (fmap chomp . inlineListToAsciiDoc opts)
               meta
-  main <- blockListToAsciiDoc opts $ makeSections False (Just 1) blocks
+  main <- blockListToAsciiDoc opts $ makeSections False Nothing blocks
   st <- get
   let context  = defField "body" main
                $ defField "toc"
diff --git a/test/command/10062.md b/test/command/10062.md
new file mode 100644
index 000000000000..dd2df06bc807
--- /dev/null
+++ b/test/command/10062.md
@@ -0,0 +1,10 @@
+```
+% pandoc -t asciidoc
+### section
+
+##### five
+^D
+==== section
+
+====== five
+```