anchor.diff:    if FTarItem.ArchiveFormat <> UNKNOWN_FORMAT then
       Exit;{ We have already set the format. }
     { In the previous header parsing if pax headers are detected the format is changed }
  -  { Also if gnu headers it is defined as a GNU format. }
  -
  -  { The final index is the Item index that is the header we parse for now }
  -  { These Detections are referenced from the GNU Tar. }
  -  if(PTarHeader.Magic.value = AB_TAR_MAGIC_VAL) then
  +  { GNU_FORMAT is detected by the presence of GNU extended headers. }
  +
  +  { These detections are similar to GNU tar's. }
  +  if (PTarHeader.Magic.value = AB_TAR_MAGIC_VAL) then
     begin { We have one of three types, STAR_FORMAT, USTAR_FORMAT, POSIX_FORMAT }
  -    { This compare is ported from the GNU Tar: Comment out for now... }
  -{    if(PTarHeader.star.Prefix[130] = #00) and
  -      (PTarHeader.star.Atime[0] in ['0'..'7']) and
  -      (PTarHeader.star.Atime[11] = #20) and
  -      (PTarHeader.star.Ctime[0]in ['0'..'7']) and
  -      (PTarHeader.star.Ctime[11] = #20) then
  -      begin
  +    { Detect STAR format.  Leave disabled until explicit STAR support is added. }
  +    {if (PTarHeader.star.Prefix[130] = #00) and
  +       (PTarHeader.star.Atime[0] in ['0'..'7']) and
  +       (PTarHeader.star.Atime[11] = #20) and
  +       (PTarHeader.star.Ctime[0]in ['0'..'7']) and
  +       (PTarHeader.star.Ctime[11] = #20) then
  +    begin
         FTarItme.ArchiveType := STAR_FORMAT;
       end }
       { else if } { POSIX uses the existance of x headers }
  
positive.code:     property ExternalFileAttributes;
      property ArchiveFormat: TAbTarHeaderFormat
        read FTarItem.ArchiveFormat write FTarItem.ArchiveFormat;
      property ItemType:  TarItemType
        read FTarItem.ItemType write FTarItem.ItemType;
      property ItemReadOnly:  Boolean
        read FTarItem.ItemReadOnly write FTarItem.ItemReadOnly;
  
negative.code:     procedure DetectHeaderFormat; { Helper to stuff HeaderFormat }
      procedure GetFileNameFromHeaders; { Helper to pull name from Headers }
      procedure GetLinkNameFromHeaders; { Helper to pull name from Headers }
      function  TestCheckSum: Boolean;  { Helper to Calculate Checksum of a header. }
      procedure DoGNUExistingLongNameLink(LinkFlag: AnsiChar; I: Integer; const Value: AnsiString);
      procedure DoGNUNewLongNameLink(LinkFlag: AnsiChar; I: Integer; const Value: AnsiString);
  