gc-defs.tcl