Index: library/xotcl/library/xotcl2.tcl =================================================================== diff -u -N -rae081c0f1926da915e0584d8561abaa8a2a022a4 -rbada4fa126ec3b40fde58ced8c41f0281e9629fa --- library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision ae081c0f1926da915e0584d8561abaa8a2a022a4) +++ library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision bada4fa126ec3b40fde58ced8c41f0281e9629fa) @@ -644,7 +644,7 @@ argName [$o ::nsf::methods::${scope}::info::method args $method] \ flag [$o ::nsf::methods::${scope}::info::method parameter $method] { if {$argName eq $arg} { - # we are in a proc, so using builtin "upvar" is safe + # we are in a proc, so using built-in "upvar" is safe upvar $varName default if {[llength $flag] == 2} { set default [lindex $flag 1]