Failed TableList Bind

	if {1} {	;# this binding is broken and needs to be fixed.
		bind [$tbl bodytag] <KeyRelease> {	;#  ### this is broke ... supposed to trigger with a selection change in the UI
		set dataHeaderIndicies {}
		foreach {tablelist::W tablelist::x tablelist::y} [tablelist::convEventFields %W %x %y] {}

		set selXY [$tbl containingcell $tablelist::x $tablelist::y]
		set tfield 0

		foreach test_Fld [split $selXY ","] {
			incr tfield 1
			set var_x $test_Fld
			if { $tfield == "2" } {
				set var_y $last_test_Fld
				}
			set last_test_Fld $test_Fld
			}
		set selSym [$tbl get $var_y]
		set test_str [lindex $selSym 3]

		$tblt delete 1.0 end

		if { $test_str != ""} {		
			explUIresp $selSym
			}
		}
		}