proc nsxml_broken_p { } { set doc '<?xml version="1.0"?><me>him</me>' set doc_id [ns_xml parse $doc] set root [ns_xml doc $doc_id] set name [ns_xml node name $root] if { [string_equal_p $name "me"] } { return 1 } return 0 }