diff --git a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
index 6eed01f13a..90dd297719 100644
--- a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
@@ -199,7 +199,9 @@ end;
 procedure TFpDebugDebugger.FDbgControllerProcessExitEvent(AExitCode: DWord);
 begin
   SetExitCode(Integer(AExitCode));
+  {$PUSH}{$R-}
   DoDbgEvent(ecProcess, etProcessExit, Format('Process exited with exit-code %d',[AExitCode]));
+  {$POP}
   FreeDebugThread;
   SetState(dsStop);
 end;