diff --git a/debugger/debugger.pp b/debugger/debugger.pp
index e01465c743..d95d502d9d 100644
--- a/debugger/debugger.pp
+++ b/debugger/debugger.pp
@@ -9218,7 +9218,7 @@ procedure TCallStackEntry.MakeCurrent;
 begin
   if FOwner = nil then Exit;
   if IsCurrent then exit;
-  FOwner.CurrentIndex := self.Index;
+  FOwner.ChangeCurrentIndex(Self.Index);
 end;
 
 function TCallStackEntry.GetArgumentCount: Integer;