Update alphasign.tcl