add-xref.tcl