diff --git a/components/lazdebuggergdbmi/gdbmiserverdebugger.pas b/components/lazdebuggergdbmi/gdbmiserverdebugger.pas
index 40a22b763d..976163a95f 100644
--- a/components/lazdebuggergdbmi/gdbmiserverdebugger.pas
+++ b/components/lazdebuggergdbmi/gdbmiserverdebugger.pas
@@ -240,11 +240,7 @@ begin
 
     if ipkeep then begin
       srv := TGDBMIServerDebugger(FTheDebugger);
-      if Assigned(srv.InitProc) then begin
-        srv.InitProc.Terminate(0);
-        srv.InitProc.Free;
-        srv.InitProc := nil;
-      end;
+      srv.StopInitProc;
       srv.InitProc := ip
     end else
       ip.Free;
diff --git a/ide/lazarus.res b/ide/lazarus.res
index daf660f5e4..a3ca42aa0e 100644
Binary files a/ide/lazarus.res and b/ide/lazarus.res differ