Update afraid6.tcl