diff --git a/components/fpdebug/fpdbgclasses.pp b/components/fpdebug/fpdbgclasses.pp
index 18987a0c77..721bd06f1e 100644
--- a/components/fpdebug/fpdbgclasses.pp
+++ b/components/fpdebug/fpdbgclasses.pp
@@ -3030,7 +3030,7 @@ end;
 
 procedure TDbgThread.PrepareCallStackEntryList(AFrameRequired: Integer);
 const
-  MAX_FRAMES = 50000; // safety net
+  MAX_FRAMES = 150000; // safety net
 var
   Address, FrameBase, LastFrameBase, Dummy: QWord;
   Size, CountNeeded, IP, BP, CodeReadErrCnt, SP, i: integer;