diff --git a/src/GFI.hs b/src/GFI.hs
index 5093884d9..17413e212 100644
--- a/src/GFI.hs
+++ b/src/GFI.hs
@@ -160,6 +160,7 @@ loop opts gfenv0 = do
                                 'c':'p':c -> case reads c of
                                                [(cp,"")] -> setConsoleCP cp >> setConsoleOutputCP cp
                                                _         -> return ()
+                                "utf8"    -> setConsoleCP 65001 >> setConsoleOutputCP 65001
                                 _         -> return ()
 #endif
                               loopNewCPU $ gfenv {coding = cod}