edit-ad-2.tcl