diff --git a/WindowsApp1/Compact.vb b/WindowsApp1/Compact.vb
index b6bc20c..9f5dd60 100644
--- a/WindowsApp1/Compact.vb
+++ b/WindowsApp1/Compact.vb
@@ -363,7 +363,7 @@ Public Class Compact
             MyProcess.BeginOutputReadLine()
 
             Try
-                MyProcess.StandardInput.WriteLine("chcp 65001")                    'UTF-8 codepage in console output. Otherwise it will translate to ASCII equivalents.
+                MyProcess.StandardInput.WriteLine("chcp 437")                    'US codepage in console output to aid in some localisations.
                 MyProcess.StandardInput.Flush()
 
                 RunCompact(passthrougharg)