diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
index 1c9a06601..1938ca171 100644
--- a/src/Text/Pandoc/Readers/RST.hs
+++ b/src/Text/Pandoc/Readers/RST.hs
@@ -1269,7 +1269,9 @@ simpleTableHeader headless = try $ do
   rawContent  <- if headless
                     then return ""
                     else simpleTableSep '=' >> anyLine
-  dashes      <- simpleDashedLines '=' <|> simpleDashedLines '-'
+  dashes      <- if headless
+                    then simpleDashedLines '='
+                    else simpleDashedLines '=' <|> simpleDashedLines '-'
   newline
   let lines'   = map snd dashes
   let indices  = scanl (+) 0 lines'
diff --git a/test/command/4382.md b/test/command/4382.md
new file mode 100644
index 000000000..4a840489f
--- /dev/null
+++ b/test/command/4382.md
@@ -0,0 +1,10 @@
+```
+% pandoc -f rst -t native
+-
+
+=====
+^D
+[BulletList
+ [[]]
+,HorizontalRule]
+```