anchor.diff:      destructor Destroy; override;
       function MatchesDiskName(const FileMask : string) : Boolean;
       function MatchesStoredName(const FileMask : string) : Boolean;
  -    function MatchesStoredNameEx(const FileMask : string) : Boolean;     
  +    function MatchesStoredNameEx(const FileMask : string) : Boolean;
   
   
     public {properties}
  
positive.code:   inherited Destroy;
  end;
  { -------------------------------------------------------------------------- }
  function TAbArchiveItem.GetCompressedSize : Int64;
  begin
    Result := FCompressedSize;
  
negative.code:     try
        Files := TStringList.Create;
        try
          // even if archive supports empty folder we don't have to
          // freshen it because there is no data, although, the timestamp
          // can be update since the folder was added
          AbFindFiles(Item.FileName, faAnyFile and not faDirectory, Files,
                       True);
          if Files.Count > 0 then begin
  