Index: rtl/win/crt.pp
===================================================================
--- rtl/win/crt.pp	(revision 3591)
+++ rtl/win/crt.pp	(working copy)
@@ -666,7 +666,11 @@
 var
   i : longint;
   s : string;
+  OldConsoleOutputCP : Word;
 begin
+  OldConsoleOutputCP:=GetConsoleOutputCP;
+  SetConsoleOutputCP(GetACP);
+    
   GetScreenCursor(CurrX, CurrY);
   s:='';
   for i:=0 to f.bufpos-1 do
@@ -684,6 +688,8 @@
   if s<>'' then
     WriteStr(s);
   SetScreenCursor(CurrX, CurrY);
+  
+  SetConsoleOutputCP(OldConsoleOutputCP);
 
   f.bufpos:=0;
   CrtWrite:=0;
@@ -704,7 +710,11 @@
 
 var
   ch : Char;
+  OldConsoleOutputCP : Word;  
 Begin
+  OldConsoleOutputCP:=GetConsoleOutputCP;
+  SetConsoleOutputCP(GetACP);
+    
   GetScreenCursor(CurrX,CurrY);
   f.bufpos:=0;
   f.bufend:=0;
@@ -781,6 +791,9 @@
       end;
       end;
   until false;
+  
+  SetConsoleOutputCP(OldConsoleOutputCP);
+	
   f.bufpos:=0;
   SetScreenCursor(CurrX, CurrY);
   CrtRead:=0;