anchor.diff:    protected
     public
       function GetCommand: string; override;
  -    procedure Execute(Respond: TdbgpRespond); override;
  +    procedure Execute(Respond: TDebugCommandRespond); override;
     end;
   
     TdbgpGetWatch = class(TdbgpCustomGetWatch)
     protected
     public
       Index: integer;
  -    procedure Execute(Respond: TdbgpRespond); override;
  +    procedure Execute(Respond: TDebugCommandRespond); override;
     end;
   
     { TdbgpEval }
  
positive.code:   Result := 'step_into';
  end;
  
  procedure TdbgpStepInto.Execute(Respond: TdbgpRespond);
  begin
  end;
  
  
negative.code: 
  { TdbgpGetWatch }
  
  procedure TdbgpGetWatch.Execute(Respond: TDebugCommandRespond);
  begin
    inherited;
    DebugManager.Lock.Enter;
    try
      Connection.Server.Watches[Index].Info.Value := Info.Value;
  