Update doge.tcl