proc ucmd/$cmdname {p dest} " upvar 1 text text\n$body"
}
+proc def_ucmd_alias {alias canon} {
+ proc ucmd/$alias {p dest} " uplevel 1 \[list ucmd/$canon \$p \$dest\]\n"
+}
+
proc ucmdr {priv pub args} {
return -code return [concat [list $priv $pub] $args]
}