anchor.diff:        DebugStep := 'Assigning client';
         n.SetClient(Client);
         TNetData.NetData.IncStatistics(1,1,0,0,0,0);
  -      TNetData.NetData.NodeServersAddresses.CleanBlackList;
  +      TNetData.NetData.NodeServersAddresses.CleanBlackList(False);
         DebugStep := 'Checking blacklisted';
         if (TNetData.NetData.NodeServersAddresses.IsBlackListed(Client.RemoteHost)) then begin
           // Invalid!
  
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:     Destructor Destroy; Override;
      Procedure Clear;
      Function Count : Integer;
      Function CleanBlackList(forceCleanAll : Boolean) : Integer;
      procedure CleanNodeServersList;
      Function LockList : TList;
      Procedure UnlockList;
  