small change to examples/221_concurrent_show_basic.tcl varname