diff --git a/rtl/objpas/sysutils/sysencoding.inc b/rtl/objpas/sysutils/sysencoding.inc
index 978deab8cf..8b0e684e3f 100644
--- a/rtl/objpas/sysutils/sysencoding.inc
+++ b/rtl/objpas/sysutils/sysencoding.inc
@@ -93,7 +93,7 @@ end;
 
 class function TEncoding.GetDefault: TEncoding;
 begin
-  Result := GetANSI;
+  Result := GetSystemEncoding;
 end;
 
 class function TEncoding.GetSystemEncoding: TEncoding;