anchor.diff:      AStream.Seek(StartPos, soFromBeginning);
       SetLength(AnsiName, Len);
       AStream.Read(AnsiName[1], Len + 1);
  +    inherited SetFileName(string(AnsiName));
     end
     else
  -    AnsiName := 'unknown';
  -
  -  FileName := string(AnsiName);
  +    inherited SetFileName('unknown');
   
     { any comment present? }
     if HasFileComment then begin
  
positive.code:     procedure SetExtraField(const Value: AnsiString);
      procedure SetFileComment(const Value : AnsiString);
      procedure SetFileSystem(const Value: TAbGzFileSystem);
      procedure SetIsText(const Value: Boolean);
  
      function GetExternalFileAttributes : LongInt; override;
  
negative.code:   StartPos : LongInt;
    Len      : LongInt;
    LenW     : Word;
    AnsiName : AnsiString;
    tempFileName : string;
  begin
  