Index: generic/predefined.h
===================================================================
diff -u -r666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0 -r73e2bbd4ee9e0acbe38dd7bb634a9ad11e7b3bf5
--- generic/predefined.h	(.../predefined.h)	(revision 666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0)
+++ generic/predefined.h	(.../predefined.h)	(revision 73e2bbd4ee9e0acbe38dd7bb634a9ad11e7b3bf5)
@@ -22,8 +22,13 @@
 "Object method defaultmethod {} {::xotcl::self}\n"
 "Object method objectparameter {} {;}\n"
 "Class method -per-object __unknown {name} {}\n"
-"Object method alias {-per-object:switch methodName cmd} {\n"
-"::xotcl::alias [self] $methodName {*}[expr {${per-object} ? \"-per-object\" : \"\"}] $cmd}\n"
+"::xotcl::alias Object $cmd -objscope ::$cmd\n"
+"Object method alias {-objscope:switch -per-object:switch -protected:switch methodName cmd} {\n"
+"::xotcl::alias [self] $methodName \\\n"
+"{*}[expr {${objscope} ? \"-objscope\" : \"\"}] \\\n"
+"{*}[expr {${per-object} ? \"-per-object\" : \"\"}] \\\n"
+"{*}[expr {${protected} ? \"-protected\" : \"\"}] \\\n"
+"$cmd}\n"
 "Object create ::xotcl2::objectInfo\n"
 "Object create ::xotcl2::classInfo\n"
 "::xotcl::dispatch objectInfo -objscope ::eval {\n"