Index: generic/predefined.h
===================================================================
diff -u -r7050a52ac53992d9a3aec12e48b0fa58a26449e6 -r9258921e23a23575d69276bfe1e6afe7ba80ce74
--- generic/predefined.h	(.../predefined.h)	(revision 7050a52ac53992d9a3aec12e48b0fa58a26449e6)
+++ generic/predefined.h	(.../predefined.h)	(revision 9258921e23a23575d69276bfe1e6afe7ba80ce74)
@@ -13,7 +13,7 @@
 "set cmdName [namespace tail $cmd]\n"
 "if {$cmdName in [list \"class-method\"]} continue\n"
 "::xotcl::alias Class $cmdName $cmd}\n"
-"foreach cmd [list __next cleanup  noinit residualargs] {\n"
+"foreach cmd [list __next cleanup  noinit residualargs uplevel upvar] {\n"
 "::xotcl::methodproperty Object $cmd protected 1}\n"
 "foreach cmd [list recreate] {\n"
 "::xotcl::methodproperty Class $cmd protected 1}\n"
@@ -47,7 +47,8 @@
 "return [::xotcl::dispatch [self] ::xotcl::cmd::Object::$what {*}$args]}}\n"
 ".method unknown {m args} {\n"
 "error \"Method '$m' unknown for [self].\\\n"
-"Consider '[self] create $m $args' instead of '[self] $m $args'\"}}\n"
+"Consider '[self] create $m $args' instead of '[self] $m $args'\"}\n"
+"::xotcl::methodproperty [self] unknown protected 1}\n"
 "::xotcl::dispatch Object -objscope ::eval {\n"
 ".method public {args} {\n"
 "set p [lsearch -regexp $args {^(method|alias|forward|setter)$}]\n"
@@ -61,7 +62,7 @@
 "set r [{*}.$args]\n"
 "::xotcl::methodproperty [self] $r [self proc] true\n"
 "return $r}\n"
-".method unknown {m args} {\n"
+".protected method unknown {m args} {\n"
 "if {![self isnext]} {\n"
 "error \"[self]: unable to dispatch method '$m'\"}}\n"
 ".protected method init args {}\n"