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