diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index bacf8b07f4..62c4ca5093 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -993,7 +993,7 @@ Begin
     redirection to seriell i/o }
 {$ifndef EMBEDDED}
   { Show runtime error and exit }
-  if WriteExceptionToStdErr then
+  if WriteErrorsToStdErr then
     pstdout:=@stderr
   else  
     pstdout:=@stdout;
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index a0297044f2..9a3fc23865 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -754,7 +754,7 @@ Var
   StackLength : SizeUInt;
   
 Var
-  WriteExceptionToStdErr : Boolean = True;
+  WriteErrorsToStdErr : Boolean = True;
 
 function StackTop: Pointer;
 
diff --git a/rtl/objpas/sysutils/sysutils.inc b/rtl/objpas/sysutils/sysutils.inc
index ba93b712f8..c6550a84c7 100644
--- a/rtl/objpas/sysutils/sysutils.inc
+++ b/rtl/objpas/sysutils/sysutils.inc
@@ -291,7 +291,7 @@ Var
   hstdout : ^text;
   
 begin
-  if WriteExceptionToStdErr then
+  if WriteErrorsToStdErr then
     hstdout:=@stderr
   else
     hstdout:=@stdout;