@@ -263,8 +263,10 @@ blockToMs opts (Table _ blkCapt specs thead tbody tfoot) =
263263 return $ makeRow cols) rows
264264 setFirstPara
265265 return $ literal ".PP" $$ caption' $$
266+ literal ".na" $$ -- we don't want justification in table cells
266267 literal ".TS" $$ literal "delim(@@) tab(\t);" $$ coldescriptions $$
267− colheadings' $$ vcat body $$ literal ".TE"
268+ colheadings' $$ vcat body $$ literal ".TE" $$
269+ literal ".ad"
268270
269271blockToMs opts (BulletList items) = do
270272 contents <- mapM (bulletListItemToMs opts) items