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:     Result := (OperationBlock.proof_of_work <> CT_OperationBlock_NUL.proof_of_work);
    End;
  
    Function GetNewBank(start_block : Int64) : Boolean;
    Var BlocksList : TList;
      i : Integer;
      tempfolder : AnsiString;
      OpComp,OpExecute : TPCOperationsComp;
      oldBlockchainOperations : TOperationsHashTree;
      opsResume : TOperationsResumeList;
  
negative.code:     for i := FListByIp.Count - 1 downto 0 do begin
        P := FListByIp[i];
        // Is an old blacklisted IP? (More than 1 hour)
        If (P^.is_blacklisted) AND
          ((forceCleanAll) OR ((P^.last_connection+(CT_LAST_CONNECTION_MAX_MINUTES)) < (UnivDateTimeToUnix(DateTime2UnivDateTime(now))))) then begin
          SecuredDeleteFromListByIp(i);
          inc(Result);
        end;
  