anchor.diff:                  end; {SaveDir}
   
                   try {UncompressedStream}
  +                  {$WARN SYMBOL_DEPRECATED OFF}
                     DateTime := FileAge(CurItem.DiskFileName);
  +                  {$WARN SYMBOL_DEPRECATED ON}                  
                     {$IFDEF LINUX}                                         {!!.01}
                     TmpDT := AbUnixTimeToDateTime(DateTime);               {!!.01}
                     DateTime := AbDateTimeToDosFileDate(TmpDT);            {!!.01}
  
positive.code:     function FixName(const Value: string): string;
        override;
  
      function GetItem(Index: Integer): TAbTarItem;                   {!!.03}
      procedure PutItem(Index: Integer; const Value: TAbTarItem);     {!!.03}
    public {methods}
      constructor Create(const FileName : string; Mode : Word);
        override;
  
negative.code:               { adding from a stream }
                  CurItem.SaveTarHeaderToStream(NewStream);
                  OutTarHelp.WriteArchiveItem(InStream);
                end else if (CurItem.IsDiskFileADirectory) then begin
                
                  DateTime := FindFirst(ExcludeTrailingPathDelimiter(CurItem.DiskFileName), faAnyFile, SR);
                  if (DateTime <> 0) then begin
                      try
                          DateTime := sr.Time;
                          CurItem.UncompressedSize := 0;
                          CurItem.LastModFileTime := LongRec(DateTime).Lo;
                          CurItem.LastModFileDate := LongRec(DateTime).Hi;
                          CurItem.ExternalFileAttributes := AbDOS2UnixFileAttributes(sr.Attr);
                      finally
                          FindClose(SR);
                      end;
                  end;
  
                  CurItem.SaveTarHeaderToStream(NewStream);
                end else begin
                { it's coming from a file }
                  GetDir(0, SaveDir);
                  try {SaveDir}
  