anchor.diff:  
   { TOrderedServerAddressListTS }
   
  -function TOrderedServerAddressListTS.CleanBlackList : Integer;
  +function TOrderedServerAddressListTS.CleanBlackList(forceCleanAll : Boolean) : Integer;
   Var P : PNodeServerAddress;
     i : Integer;
   begin
  
positive.code:     TLog.NewLog(ltInfo,ClassName,'Already discovering servers...');
      exit;
    end;
    FNodeServersAddresses.CleanBlackList;
    If NetStatistics.ClientsConnections>0 then begin
      j := CT_MinServersConnected - NetStatistics.ServersConnectionsWithResponse;
    end else begin
  
negative.code:     Result := (OperationBlock.proof_of_work <> CT_OperationBlock_NUL.proof_of_work);
    End;
  
    procedure GetNewBank(start_block : Int64);
    Var BlocksList : TList;
      i : Integer;
      OpComp,OpExecute : TPCOperationsComp;
      oldBlockchainOperations : TOperationsHashTree;
      opsResume : TOperationsResumeList;
  