* scripts/tablelistUtil.tcl: Minor optimization.
	* scripts/tablelistUtil.tcl: Minor optimization.