as-item-type-swcat-procs.tcl