anchor.diff:  
   { TXMLAttributes }
   
  -constructor TXMLAttributes.Create(aNode: IDOMNode);
  +constructor TXMLAttributes.Create(aNode: IXMLDomNode);
   begin
     inherited Create;
     fNode := aNode;
  
positive.code: 
    TXMLPack = class(TInterfacedObject, IXMLPack)
    private
      fDocument: IXMLDocument;
    public
      constructor Create(aStream: TStream); reintroduce; overload;
      constructor Create(const aRootName: RawUTF8); overload;
  
negative.code: 
  function TXMLAttributes.Item(aIndex: Integer): IXMLAttribute;
  var
    n: IXMLDomNode;
  begin
    n := fNode.Attributes.Item[aIndex];
    if not Assigned(n) then
  