anchor.diff:        end;
       end;
       // Check OperationsHash value is valid
  -    if FOperationsHashTree.HashTree<>OperationBlock.operations_hash then begin
  +    // New Build 2.1.7 use safe BinStrComp
  +    if TBaseType.BinStrComp(FOperationsHashTree.HashTree,OperationBlock.operations_hash)<>0 then begin
         errors := 'Invalid Operations Hash '+TCrypto.ToHexaString(OperationBlock.operations_hash)+'<>'+TCrypto.ToHexaString(FOperationsHashTree.HashTree);
         exit;
       end;
  
positive.code: 
  uses
    {Messages, }
    Variants, {Graphics,}
    {Controls, Forms,}
    Dialogs, {StdCtrls,}
    UTime, UConst, UOpTransaction, UAutoScope;
  
  { TPCBank }
  
  
negative.code:                 {$IFDEF TESTNET}
                  Storage.SaveBank;
                  {$ELSE}
                  If (BlocksCount MOD (CT_BankToDiskEveryNBlocks*10))=0 then begin
                    Storage.SaveBank;
                  end;
  