anchor.diff:              Exit;
             end;
           end;
  +
           // Add
           {$IFDEF USE_ABSTRACTMEM}
           FPCAbstractMem.SetBlockAccount(LBlock);
  
positive.code:             if ((iblock + (CT_BankToDiskEveryNBlocks * 10)) >= sbHeader.blockscount) then begin
              {$ENDIF}
                {$IFDEF ASSUME_VALID_POW_OLD_PROTOCOLS}
                LAddToMultiThreadOperationsBlockValidator := (LUseMultiThreadOperationsBlockValidator) and (LBlock.blockchainInfo.protocol_version>=CT_PROTOCOL_5) and (Assigned(LPCOperationsBlockValidator));
                {$ELSE}
                LAddToMultiThreadOperationsBlockValidator := (LUseMultiThreadOperationsBlockValidator) and (LBlock.blockchainInfo.protocol_version>=CT_PROTOCOL_4) and (Assigned(LPCOperationsBlockValidator));
                {$ENDIF}
                If not IsValidNewOperationsBlock(LBlock.blockchainInfo,False,Not LAddToMultiThreadOperationsBlockValidator,aux_errors) then begin
                  errors := errors + ' > ' + aux_errors;
  
negative.code:         // Assign to previous
          LPreviousProofOfWork := LBlock.blockchainInfo.proof_of_work;
        end; // For iBlock ...
          if Assigned(LPCOperationsBlockValidator) then begin
            repeat
              LPCOperationsBlockValidator.GetStatus(LValidatedOPOk, LValidatedOPError, LValidatedOPPending);
  