Add an xml root node.
fun [ObjSXML S] ObjSXMLNode
Return : ObjSXMLNode the new node object or NIL if the function fails