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:     FilterList := TStringList.Create;
      try
        if (MaskF <> '') then
          AbFindFilesEx(MaskF, SearchAttr and not faDirectory, FilterList, Recursing);
  
          Files := TStringList.Create;
          try
  
            AbFindFilesEx(Mask, SearchAttr and not faDirectory, Files, Recursing);
            if (Files.Count > 0) then begin
              for i := 0 to pred(Files.Count) do
                if FilterList.IndexOf(Files[i]) < 0 then               
  
negative.code:   end;
  
  begin
     if (not SupportsEmptyFolder()) then begin
      SearchAttr := SearchAttr and not faDirectory;
     end;
  
    CheckValid;
    IsWild := (Pos('*', FileMask) > 0) or (Pos('?', FileMask) > 0);
    PathType := AbGetPathType(FileMask);
  