diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 9e9b785ec3..7ccdd3c41c 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -808,9 +808,14 @@ Var
 {$endif FPC_HAS_FEATURE_THREADING}
   ThreadID    : TThreadID;
   { Standard In- and Output }
+{$ifndef FPC_STDERR_IS_ALIAS_FOR_STDOUT}
   ErrOutput,
+{$endif FPC_STDERR_IS_ALIAS_FOR_STDOUT}
   Output,
   Input       : Text;
+{$ifdef FPC_STDERR_IS_ALIAS_FOR_STDOUT}
+  ErrOutput   : Text Absolute Output;
+{$endif FPC_STDERR_IS_ALIAS_FOR_STDOUT}
 {$ifndef FPC_STDOUT_TRUE_ALIAS}
   StdOut,
   StdErr      : Text;
diff --git a/rtl/zxspectrum/system.pp b/rtl/zxspectrum/system.pp
index ef4fb8e46b..ef2ce354cf 100644
--- a/rtl/zxspectrum/system.pp
+++ b/rtl/zxspectrum/system.pp
@@ -13,6 +13,7 @@ interface
 { Use Ansi Char for files }
 {$define FPC_ANSI_TEXTFILEREC}
 {$define FPC_STDOUT_TRUE_ALIAS}
+{$define FPC_STDERR_IS_ALIAS_FOR_STDOUT}
 
 {$I systemh.inc}
 {$I tnyheaph.inc}
@@ -269,7 +270,9 @@ procedure SysInitStdIO;
 begin
   OpenStdIO(Input,fmInput,StdInputHandle);
   OpenStdIO(Output,fmOutput,StdOutputHandle);
+{$ifndef FPC_STDERR_IS_ALIAS_FOR_STDOUT}
   OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
+{$endif FPC_STDERR_IS_ALIAS_FOR_STDOUT}
 {$ifndef FPC_STDOUT_TRUE_ALIAS}
   OpenStdIO(StdOut,fmOutput,StdOutputHandle);
   OpenStdIO(StdErr,fmOutput,StdErrorHandle);