anchor.diff:    end;
   end;
   
  -class function TXMLPack.New: IXMLPack;
  +class function TXMLPack.New(const RootName: XMLString): IXMLPack;
   begin
  -  Result := New(TDataStream.New);
  +  Result := New(
  +    TDataStream.New(
  +      Format(
  +        '<?xml version="1.0" encoding="UTF-8"?><%s />', [RootName]
  +      )
  +    )
  +  );
   end;
   
   end.
  
positive.code:   TXMLPack = class(TCPack)
    public
      class function New(Stream: IDataStream): IXMLPack; overload;
      class function New: IXMLPack; overload;
    end;
  
  implementation
  
negative.code: interface
  
  uses
    Classes, SysUtils,
    James.Data,
    James.Data.Clss,
    Xavier.Core,
  