diff --git a/rtl/objpas/objpas.pp b/rtl/objpas/objpas.pp
index a4cd6add4d..a1588fc1ea 100644
--- a/rtl/objpas/objpas.pp
+++ b/rtl/objpas/objpas.pp
@@ -182,6 +182,8 @@ interface
 
   implementation
 
+    Procedure HandleError (Errno : longint);external name 'FPC_HANDLEERROR';
+
 {****************************************************************************
                   Internal Routines called from the Compiler
 ****************************************************************************}
@@ -200,7 +202,7 @@ interface
     procedure int_do_as(aclass : tclass;aobject : tobject);[public,alias: 'FPC_DO_AS'];
       begin
          if assigned(aobject) and not(aobject.inheritsfrom(aclass)) then
-           runerror(219);
+           handleerror(219);
       end;
 
 
@@ -399,7 +401,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.17  1998-10-05 12:32:53  peter
+  Revision 1.18  1998-10-12 12:42:58  florian
+    * as operator runtime error can be now caught by an errorproc
+
+  Revision 1.17  1998/10/05 12:32:53  peter
     + assert() support
 
   Revision 1.16  1998/10/03 15:07:16  florian