Update dns46.tcl