@@ -614,7 +614,7 @@ writeOpenXML opts (Pandoc meta blocks) = do
614 convertSpace (Str x : Str y : xs) = Str (x ++ y) : xs
614 convertSpace (Str x : Str y : xs) = Str (x ++ y) : xs
615 convertSpace xs = xs
615 convertSpace xs = xs
616 let blocks' = bottomUp convertSpace blocks
616 let blocks' = bottomUp convertSpace blocks
617− doc' <- blocksToOpenXML opts blocks'
617+ doc' <- (setFirstPara >> blocksToOpenXML opts blocks')
618 notes' <- reverse `fmap` gets stFootnotes
618 notes' <- reverse `fmap` gets stFootnotes
619 let meta' = title ++ subtitle ++ authors ++ date ++ abstract
619 let meta' = title ++ subtitle ++ authors ++ date ++ abstract
620 return (meta' ++ doc', notes')
620 return (meta' ++ doc', notes')