@@ -854,8 +854,8 @@ blocksToOpenXML opts = fmap concat . mapM (blockToOpenXML opts) . separateTables
854854-- them. See #4315.
855855separateTables :: [Block] -> [Block]
856856separateTables [] = []
857−separateTables (x@Table{}:y@Table{}:zs) =
858− x : RawBlock (Format "openxml") "<w:p />" : separateTables (y:zs)
857+separateTables (x@Table{}:xs@(Table{}:_)) =
858+ x : RawBlock (Format "openxml") "<w:p />" : separateTables xs
859859separateTables (x:xs) = x : separateTables xs
860860
861861pStyleM :: (PandocMonad m) => ParaStyleName -> WS m XML.Element