anchor.diff:  end;
   
   
  -function TAbTarArchive.CreateItem(const FileSpec: string): TAbArchiveItem;
  -var
  +function TAbTarArchive.CreateItem(const FileName: string): TAbArchiveItem;
  +var
  +  FileSpec: string;
  +  Item : TAbTarItem;
     Buff : array [0..255] of AnsiChar;
  -  Item : TAbTarItem;
  -begin
  +begin
  +  FileSpec := FileName;
     Item := TAbTarItem.Create;
     try
       Item.CompressedSize := 0;
       Item.CRC32 := 0;
  +    if (AbDirectoryExists(FileSpec)) then begin
  +        Item.SetIsDirectory(True);
  +        FileSpec := IncludeTrailingPathDelimiter(FileSpec);
  +    end;
       StrPCopy(Buff, ExpandFileName(FileSpec));
       {$IFDEF MSWINDOWS }
  -    AnsiToOEM(Buff, Buff);
  +    AnsiToOem(Buff, Buff);
       {$ENDIF MSWINDOWS }
  -    Item.DiskFileName := Buff;
  +    Item.DiskFileName := ExcludeTrailingPathDelimiter(Buff);
       StrPCopy(Buff, FixName(FileSpec));
       {$IFDEF MSWINDOWS }
       AnsiToOEM(Buff, Buff);
  
positive.code:               { adding from a stream }
                  CurItem.SaveTarHeaderToStream(NewStream);
                  OutTarHelp.WriteArchiveItem(InStream);
                end
                else begin
                { it's coming from a file }
                  GetDir(0, SaveDir);
                  try {SaveDir}
  
negative.code:                 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}
  