anchor.diff:              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));
  +              LAddToMultiThreadOperationsBlockValidator := False;
                 {$ELSE}
  -              LAddToMultiThreadOperationsBlockValidator := (LUseMultiThreadOperationsBlockValidator) and (LBlock.blockchainInfo.protocol_version>=CT_PROTOCOL_4) and (Assigned(LPCOperationsBlockValidator));
  +              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;
  
positive.code:   // This issue is not detected on current Delphi memory manager (Tested on Delphi 10.3.2)
  {$ENDIF}
  
  
  { This function is for testing purpose only.
    Will check if Account Names are well assigned and stored }
  function Check_Safebox_Names_Consistency(sb : TPCSafeBox; const title :String; var errors : String) : Boolean;
  
negative.code:             Exit;
            end;
          end;
  
          // Add
          {$IFDEF USE_ABSTRACTMEM}
          FPCAbstractMem.SetBlockAccount(LBlock);
  