anchor.diff:  begin
     list.Add(TObject(FData.account_signer));
     if (FData.account_target<>FData.account_signer) then list.Add(TObject(FData.account_target));
  +end;
  +
  +function TOpChangeKey.OperationAmountByAccount(account: Cardinal): Int64;
  +begin
  +  if (FData.account_signer = account) then Result := Int64(FData.fee)*(-1)
  +  else Result := 0;
   end;
   
   constructor TOpChangeKey.Create(account_signer, n_operation, account_target: Cardinal; key:TECPrivateKey; new_account_key : TAccountKey; fee: UInt64; payload: TRawBytes);
  
positive.code:     function DestinationAccount : Int64; override;
      function N_Operation : Cardinal; override;
      procedure AffectedAccounts(list : TList); override;
      Constructor CreateChangeAccountInfo(account_signer, n_operation, account_target: Cardinal; key:TECPrivateKey;
        change_key : Boolean; const new_account_key : TAccountKey;
        change_name: Boolean; const new_name : TRawBytes;
  
negative.code:   list.Add(TObject(FData.account_signer));
    if FData.account_signer<>FData.account_target then
      list.Add(TObject(FData.account_target));
  end;
  
  function TOpListAccount.OperationAmountByAccount(account: Cardinal): Int64;
  begin
    if (FData.account_signer = account) then Result := Int64(FData.fee)*(-1)
    else Result := 0;
  end;
  
  function TOpListAccount.DoOperation(AccountPreviousUpdatedBlock : TAccountPreviousBlockInfo; AccountTransaction : TPCSafeBoxTransaction; var errors : AnsiString) : Boolean;
  