Update swisscex.tcl