@@ -110,7 +110,7 @@ makePDF "pdfroff" writer opts verbosity _mediabag doc = liftIO $ do
110110 source <- runIOorExplode $ do
111111 setVerbosity verbosity
112112 writer opts doc
113− let args = ["-ms", "-e", "-k", "-i"]
113+ let args = ["-ms", "-e", "-t", "-k", "-KUTF-8", "-i"]
114114 ms2pdf verbosity args source
115115makePDF program writer opts verbosity mediabag doc = do
116116 let withTemp = if takeBaseName program == "context"