anchor.diff:  to_iolist_escape(#xmlel{name = Name, attrs = Attrs, children = []}) ->
       EAttrs = [{AttrName, escape_attr(AttrVal)} ||
                    {AttrName, AttrVal} <- Attrs],
  -    ["<", Name, attrs_to_iolist(EAttrs, []), "/>"];
  +    ["<", Name, attrs_to_iolist(EAttrs), "/>"];
   to_iolist_escape(#xmlel{name = Name, attrs = Attrs, children = Children}) ->
       EAttrs = [{AttrName, escape_attr(AttrVal)} ||
                    {AttrName, AttrVal} <- Attrs],
  -    ["<", Name, attrs_to_iolist(EAttrs, []), ">",
  +    ["<", Name, attrs_to_iolist(EAttrs), ">",
        to_iolist_escape(Children),
        "</", Name, ">"];
   to_iolist_escape(#xmlstreamstart{name = Name, attrs = Attrs}) ->
       EAttrs = [{AttrName, escape_attr(AttrVal)} ||
                    {AttrName, AttrVal} <- Attrs],
  -    ["<", Name, attrs_to_iolist(EAttrs, []), ">"];
  +    ["<", Name, attrs_to_iolist(EAttrs), ">"];
   to_iolist_escape(#xmlstreamend{name = Name}) ->
       ["</", Name, ">"];
   to_iolist_escape(#xmlcdata{content = Content}) ->
  
positive.code:     EAttrs = [{AttrName, escape_attr(AttrVal)} ||
                   {AttrName, AttrVal} <- Attrs],
      Shift = lists:duplicate(Level, Indent),
      [Shift, "<", Name, attrs_to_iolist(EAttrs, []), "/>\n"];
  to_pretty_iolist_escape(#xmlel{name = Name, attrs = Attrs,
                                 children = [#xmlcdata{content = Content}]},
                          Level, Indent) ->
      EAttrs = [{AttrName, escape_attr(AttrVal)} ||
                   {AttrName, AttrVal} <- Attrs],
      Shift = lists:duplicate(Level, Indent),
      [Shift, "<", Name, attrs_to_iolist(EAttrs, []), ">",
       escape_cdata(Content), "</", Name, ">\n"];
  to_pretty_iolist_escape(#xmlel{name = Name, attrs = Attrs, children = Children},
                          Level, Indent) ->
      EAttrs = [{AttrName, escape_attr(AttrVal)} ||
                   {AttrName, AttrVal} <- Attrs],
      Shift = lists:duplicate(Level, Indent),
      [Shift, "<", Name, attrs_to_iolist(EAttrs, []), ">\n",
       [to_pretty_iolist_escape(C, Level+1, Indent) || C <- Children],
       Shift, "</", Name, ">\n"];
  to_pretty_iolist_escape(#xmlstreamstart{name = Name, attrs = Attrs},
  
negative.code:     EAttrs = [{AttrName, escape_attr(AttrVal)} ||
                   {AttrName, AttrVal} <- Attrs],
      Shift = lists:duplicate(Level, Indent),
      [Shift, "<", Name, attrs_to_iolist(EAttrs), ">\n"];
  to_pretty_iolist_escape(#xmlstreamend{name = Name}, Level, Indent) ->
      Shift = lists:duplicate(Level, Indent),
      [Shift, "</", Name, ">\n"];
  