anchor.diff:              If Not IsMyBlockchainValid then begin
                 TNode.Node.Bank.Storage.EraseStorage;
               end;
  -            TNode.Node.Bank.Storage.SaveBank;
  +            TNode.Node.Bank.Storage.SaveBank(False);
               Connection.Send_GetBlocks(TNode.Node.Bank.BlocksCount,100,request_id);
               Result := true;
             end else begin
  
positive.code:     repeat
        BlocksList := TList.Create;
        try
          If Not Do_GetOperationsBlock(Nil,min,max,5000,true,BlocksList) then exit;
          if (BlocksList.Count=0) then begin
            Connection.DisconnectInvalidClient(false,'No received info for blocks from '+inttostr(min)+' to '+inttostr(max));
            exit;
  
negative.code:         end else begin
            // Restore a part from disk
            Bank.DiskRestoreFromOperations(start_block-1);
            Bank.Storage.SaveBank(True);
            if (Bank.BlocksCount<start_block) then begin
              TLog.NewLog(lterror,CT_LogSender,Format('No blockchain found start block %d, current %d',[start_block-1,Bank.BlocksCount]));
              start_block := Bank.BlocksCount;
  