anchor.diff:      Value: String; // Attribute value (always as String)
     end;
   
  -  TXmlAttributeList = class(TList)
  +  TXmlAttributeList = class(TXmlList)
     public
       function Find(AttrName: String): TXmlAttribute;
       // Find an Attribute by Name (not case sensitive)
  
positive.code:   Classes;
  
  type
    TXmlNodeList = class;
  
    TXmlAttribute = class(TObject)
  
negative.code:   Result := StringReplace(Result, '&amp;', '&', [rfReplaceAll]);
  end;
  
  
  //We were notified that the item is deleted from the list
  procedure TXmlList.Notify(Ptr: Pointer; Action: TListNotification);
  begin
    if (Action = lnDeleted) then
      TObject(Ptr).Free;
  end;
  
  
  { TXmlVerySimple }
  
  procedure TXmlVerySimple.Clear;
  