 M: tag (r-ref)
     sub-tag over at* [
         ref-table get at
-        swap set-tag-children
+        >>children drop
     ] [ 2drop ] if ;
 M: object (r-ref) drop ;
 

USING: kernel xml sequences assocs tools.test io arrays namespaces
    xml.data xml.utilities xml.writer generic sequences.deep ;
IN: xml.tests

: sub-tag

    [
        H{
            { "foo" { "foo" } }
            { "bar" { "blah" T{ tag f T{ name f "" "a" "" } f f } } }
            { "baz" f }
        } ref-table set
        sample-doc string>xml dup template xml>string
