anchor.diff:      Result := (OperationBlock.proof_of_work <> CT_OperationBlock_NUL.proof_of_work);
     End;
   
  -  Function GetNewBank(start_block : Int64) : Boolean;
  +  procedure GetNewBank(start_block : Int64);
     Var BlocksList : TList;
       i : Integer;
  -    tempfolder : AnsiString;
       OpComp,OpExecute : TPCOperationsComp;
       oldBlockchainOperations : TOperationsHashTree;
       opsResume : TOperationsResumeList;
  
positive.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 ((P^.last_connection+(CT_LAST_CONNECTION_MAX_MINUTES)) < (UnivDateTimeToUnix(DateTime2UnivDateTime(now)))) then begin
          SecuredDeleteFromListByIp(i);
          inc(Result);
        end;
  
negative.code:     Destructor Destroy; Override;
      Procedure Clear;
      Function Count : Integer;
      Function CleanBlackList(forceCleanAll : Boolean) : Integer;
      procedure CleanNodeServersList;
      Function LockList : TList;
      Procedure UnlockList;
  