diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc
index 230a042048..7a2eb6b169 100644
--- a/rtl/i386/i386.inc
+++ b/rtl/i386/i386.inc
@@ -549,7 +549,6 @@ procedure runerror(w : word);[alias: 'runerror'];
      exitcode:=w;
      erroraddr:=pointer(get_addr);
      errorbase:=get_error_bp;
-     doError:=True;
      halt(errorcode);
   end;
 
@@ -729,7 +728,10 @@ end;
 
 {
   $Log$
-  Revision 1.12  1998-05-31 14:15:47  peter
+  Revision 1.13  1998-06-26 08:20:57  daniel
+  - Doerror removed.
+
+  Revision 1.12  1998/05/31 14:15:47  peter
     * force to use ATT or direct parsing
 
   Revision 1.11  1998/05/30 14:30:21  peter
diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index ef8ed21e3b..5974b2a075 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -29,8 +29,6 @@ type
   FileFunc = Procedure(var t : TextRec);
 
 var
-{ For Error Handling.}
-  DoError   : Boolean;
   ErrorBase : Longint;
 
 {****************************************************************************
@@ -440,7 +438,10 @@ End;
 
 {
   $Log$
-  Revision 1.12  1998-06-25 14:04:25  peter
+  Revision 1.13  1998-06-26 08:21:09  daniel
+  - Doerror removed.
+
+  Revision 1.12  1998/06/25 14:04:25  peter
     + internal inc/dec
 
   Revision 1.11  1998/06/25 09:44:20  daniel