@@ -894,7 +894,7 @@ blockToOpenXML' opts (Table caption aligns widths headers rows) = do
894894 [ mknode "w:tcBorders" []
895895 $ mknode "w:bottom" [("w:val","single")] ()
896896 , mknode "w:vAlign" [("w:val","bottom")] () ]
897− let emptyCell = [mknode "w:p" [] [pCustomStyle "Compact"]]
897+ let emptyCell = [mknode "w:p" [] [mknode "w:pPr" [] [pCustomStyle "Compact"]]]
898898 let mkcell border contents = mknode "w:tc" []
899899 $ [ borderProps | border ] ++
900900 if null contents