fixed tcl script typo

Change-Id: Iac68c796b6d32cf5e7b55b55015d353dbbee9df1