Merged revisions 601 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@682 -

rtl/inc/except.inc

@@ -235,6 +235,7 @@ begin
        if assigned(hp^.frames) then
          freemem(hp^.frames);
        dispose(hp);
+       erroraddr:=nil;
     end;
 end;