add-section.tcl