diff --git a/ide/packages/idedebugger/debugger.pp b/ide/packages/idedebugger/debugger.pp
index 8c1f65db60..7df370f061 100644
--- a/ide/packages/idedebugger/debugger.pp
+++ b/ide/packages/idedebugger/debugger.pp
@@ -557,6 +557,7 @@ type
                        const AThreadId: Integer;
                        const AStackFrame: Integer
                       );
+    destructor Destroy; override;
     procedure Assign(AnOther: TWatchValue); override;
     property Watch: TIdeWatch read GetWatch;
 
@@ -4631,6 +4632,13 @@ begin
   FStackFrame := AStackFrame;
 end;
 
+destructor TIdeWatchValue.Destroy;
+begin
+  inc(DbgStateChangeCounter);
+  if DbgStateChangeCounter = high(DbgStateChangeCounter) then DbgStateChangeCounter := 0;
+  inherited Destroy;
+end;
+
 procedure TIdeWatchValue.Assign(AnOther: TWatchValue);
 begin
   inherited Assign(AnOther);