* always write backtracestr for exception address to print also backtrace info for

    exceptions generated from the main body

git-svn-id: trunk@2265 -

rtl/objpas/sysutils/sysutils.inc

@@ -206,9 +206,9 @@ begin
    end
   else
    Writeln(stdout,'Exception object ',Obj.ClassName,' is not of class Exception.');
+  Writeln(stdout,BackTraceStrFunc(Addr));
   if (FrameCount>0) then
     begin
-      Writeln(stdout,BackTraceStrFunc(Addr));
       for i:=0 to FrameCount-1 do
         Writeln(stdout,BackTraceStrFunc(Frames[i]));
     end;