diff --git a/jcl/source/windows/JclDebug.pas b/jcl/source/windows/JclDebug.pas
index 96cdc65f85..68f8a3e785 100644
--- a/jcl/source/windows/JclDebug.pas
+++ b/jcl/source/windows/JclDebug.pas
@@ -5449,7 +5449,7 @@ procedure TJclStackInfoList.CaptureBackTrace;
   ResetMemory(StackInfo, SizeOf(StackInfo));
   for I := 0 to CapturedFramesCount - 1 do
   begin
-    StackInfo.CallerAddr := TJclAddr(BackTrace[I]);
+    StackInfo.CallerAddr := TJclAddr(BackTrace[I]) - 2; //magic number
     StackInfo.Level := I;
     StoreToList(StackInfo); // skips all frames with a level less than "IgnoreLevels"
   end;