public-write-toggle.tcl