anchor.diff:  
       function GetItem(Index: Integer): TAbTarItem;                   {!!.03}
       procedure PutItem(Index: Integer; const Value: TAbTarItem);     {!!.03}
  -    class function SupportsEmptyFolder: Boolean; override;
  +
     public {methods}
       property Items[Index : Integer] : TAbTarItem                    {!!.03}
         read GetItem                                                  {!!.03}
  
positive.code:   end;
  end;
  
  class function TAbTarArchive.SupportsEmptyFolder: Boolean;
  begin
      Result := True;
  end;
  
  procedure TAbTarArchive.TestItemAt(Index: Integer);
  var
    Hlpr : TAbTarStreamHelper;
  
negative.code:               { adding from a stream }
                  CurItem.SaveTarHeaderToStream(NewStream);
                  OutTarHelp.WriteArchiveItem(InStream);
                end else begin
                { it's coming from a file }
                  GetDir(0, SaveDir);
  