anchor.diff:  interface
   
   uses
  -  Classes,
  +  Classes, SysUtils,
     James.Data,
     James.Data.Clss,
     Xavier.Core,
  
positive.code:   end;
  end;
  
  class function TXMLPack.New: IXMLPack;
  begin
    Result := New(TDataStream.New);
  end;
  
  end.
  
negative.code:   TXMLPack = class(TCPack)
    public
      class function New(Stream: IDataStream): IXMLPack; overload;
      class function New(const RootName: XMLString): IXMLPack; overload;
    end;
  
  implementation
  