tcl lambda expression is wrong