Missing a "]"

[lvjinhua]

The original:
    set subtags [list [wrapper::createtag default]
    set xmllist [list [wrapper::createtag pubsub \
      -attrlist [list xmlns $xmlns(owner)] -subtags $subtags]]

fixed:
    set subtags [list [wrapper::createtag default] ] #add by lvjinhu on 20080101
    set xmllist [list [wrapper::createtag pubsub \
      -attrlist [list xmlns $xmlns(owner)] -subtags $subtags]]

[Mats (matsben)]

This part of the code seems not to be in use or at least hasn't been tested. Need to get a tool that checks code for stupid things like this.