Index: generic/predefined.h
===================================================================
diff -u -rdf9b12b3347ec6d0aaab6a080619734cd4c45f34 -r7f114dad2b4deb00431c895e511118c3c675cb07
--- generic/predefined.h	(.../predefined.h)	(revision df9b12b3347ec6d0aaab6a080619734cd4c45f34)
+++ generic/predefined.h	(.../predefined.h)	(revision 7f114dad2b4deb00431c895e511118c3c675cb07)
@@ -68,13 +68,15 @@
 "::xotcl::forward Object forward ::xotcl::forward %self -per-object\n"
 "::xotcl::forward Class  forward ::xotcl::forward %self\n"
 "Class protected object method __unknown {name} {}\n"
-"Object public method alias {-objscope:switch methodName cmd} {\n"
+"Object public method alias {-nonleaf:switch -objscope:switch methodName cmd} {\n"
 "::xotcl::alias [self] -per-object $methodName \\\n"
 "{*}[expr {${objscope} ? \"-objscope\" : \"\"}] \\\n"
+"{*}[expr {${nonleaf} ? \"-nonleaf\" : \"\"}] \\\n"
 "$cmd}\n"
-"Class public method alias {-objscope:switch methodName cmd} {\n"
+"Class public method alias {-nonleaf:switch -objscope:switch methodName cmd} {\n"
 "::xotcl::alias [self] $methodName \\\n"
 "{*}[expr {${objscope} ? \"-objscope\" : \"\"}] \\\n"
+"{*}[expr {${nonleaf} ? \"-nonleaf\" : \"\"}] \\\n"
 "$cmd}\n"
 "Object public method setter {methodName value:optional} {\n"
 "if {[info exists value]} {\n"