diff --git a/GHCMod.hs b/GHCMod.hs
index 531da78..0f5810f 100644
--- a/GHCMod.hs
+++ b/GHCMod.hs
@@ -21,7 +21,7 @@ import Prelude
 import System.Console.GetOpt
 import System.Directory
 import System.Environment (getArgs)
-import System.IO (hPutStr, hPutStrLn, stderr)
+import System.IO (hPutStr, hPutStrLn, stdout, stderr, hSetEncoding, utf8)
 import Types
 
 ----------------------------------------------------------------
@@ -87,6 +87,7 @@ instance Exception GHCModError
 
 main :: IO ()
 main = flip catches handlers $ do
+    hSetEncoding stdout utf8
     args <- getArgs
     let (opt',cmdArg) = parseArgs argspec args
     (strVer,ver) <- getGHCVersion