Index: sysutilh.inc
===================================================================
--- sysutilh.inc	(revision 460)
+++ sysutilh.inc	(working copy)
@@ -156,6 +156,8 @@
    { Exception handling routines }
    function ExceptObject: TObject;
    function ExceptAddr: Pointer;
+   function ExceptFrameCount: Longint;
+   function ExceptFrames: PPointer;
    function ExceptionErrorMessage(ExceptObject: TObject; ExceptAddr: Pointer;
                                   Buffer: PChar; Size: Integer): Integer;
    procedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer);
Index: sysutils.inc
===================================================================
--- sysutils.inc	(revision 460)
+++ sysutils.inc	(working copy)
@@ -362,6 +362,24 @@
     Result:=RaiseList^.Addr;
 end;
 
+function ExceptFrameCount: Longint;
+
+begin
+  If RaiseList=Nil then
+    Result:=0
+  else
+    Result:=RaiseList^.Framecount;
+end;
+
+function ExceptFrames: PPointer;
+
+begin
+  If RaiseList=Nil then
+    Result:=Nil
+  else
+    Result:=RaiseList^.Frames;
+end;
+
 function ExceptionErrorMessage(ExceptObject: TObject; ExceptAddr: Pointer;
                                Buffer: PChar; Size: Integer): Integer;
 
