Tcl Set Command