Index: system.inc
===================================================================
--- system.inc	(revision 594)
+++ system.inc	(working copy)
@@ -674,7 +674,10 @@
 Procedure HandleErrorAddrFrame (Errno : longint;addr,frame : Pointer);[public,alias:'FPC_BREAK_ERROR'];
 begin
   If pointer(ErrorProc)<>Nil then
-    ErrorProc(Errno,addr,frame);
+    ErrorProc(Errno,addr,frame)
+  else
+    if frame <> nil then
+      raise TObject(nil) at addr,frame;
   errorcode:=word(Errno);
   erroraddr:=addr;
   errorbase:=frame;