anchor.diff:      begin
         FoundName := True;
         NameStr := '';
  -      NameLength := OctalToInt64(PHeader.Size, SizeOf(PHeader.Size));
  +      NameLength := OctalToInt(PHeader.Size, SizeOf(PHeader.Size));
         NumMHeaders := Floor(NameLength / AB_TAR_RECORDSIZE);
         ExtraName := NameLength mod AB_TAR_RECORDSIZE; { Chars in the last Header }
         { NumMHeaders should never be zero }
  
positive.code:         { Removed the last zero }
          SetLength(NameStr, (Length(NameStr)-1));
        end;
        FTarItem.LinkName := NameStr;
      end { end long filename link flag }
      else
        I := I + 1;
  
negative.code: begin
    PHeader := FTarHeaderList.Items[I];
  
    { Need this data from the old header }
    OldNameLength := OctalToInt(PHeader.Size, SizeOf(PHeader.Size));{ inlcudes Null termination }
    { Length(FTarItem.Name)+1 = OldNameLength; }{ This should be true, always }
  
    { Save off the new Length, so we don't have to change the pointers later. }
  