output.tcl: adding xml processing starting with output::get_xml_text