anchor.diff:          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;
  
positive.code:       end;
        TLog.NewLog(ltinfo,CT_LogSender,'My blockchain is not equal... received: '+TPCOperationsComp.OperationBlockToText(client_op)+' My: '+TPCOperationsComp.OperationBlockToText(my_op));
        if Not FindLastSameBlockByOperationsBlock(0,client_op.block,client_op) then begin
          TLog.NewLog(ltinfo,CT_LogSender,'No found base block to start process... Receiving ALL');
          If (Connection.FRemoteOperationBlock.protocol_version>=CT_PROTOCOL_2) then begin
            DownloadSafeBox(False);
          end else begin
            GetNewBank(-1);
          end;
        end else begin
          // Move operations to orphan folder... (temporal... waiting for a confirmation)
          if (TNode.Node.Bank.Storage.FirstBlock<client_op.block) then begin
  
negative.code:             If Not IsMyBlockchainValid then begin
                TNode.Node.Bank.Storage.EraseStorage;
              end;
              TNode.Node.Bank.Storage.SaveBank(False);
              Connection.Send_GetBlocks(TNode.Node.Bank.BlocksCount,100,request_id);
              Result := true;
            end else begin
  