Index: generic/predefined.h
===================================================================
diff -u -r73e2bbd4ee9e0acbe38dd7bb634a9ad11e7b3bf5 -rb6b46467581277d91ecb78318df079581c1b65fe
--- generic/predefined.h	(.../predefined.h)	(revision 73e2bbd4ee9e0acbe38dd7bb634a9ad11e7b3bf5)
+++ generic/predefined.h	(.../predefined.h)	(revision b6b46467581277d91ecb78318df079581c1b65fe)
@@ -23,9 +23,14 @@
 "Object method objectparameter {} {;}\n"
 "Class method -per-object __unknown {name} {}\n"
 "::xotcl::alias Object $cmd -objscope ::$cmd\n"
-"Object method alias {-objscope:switch -per-object:switch -protected:switch methodName cmd} {\n"
+"Object method alias {-objscope:switch -protected:switch methodName cmd} {\n"
 "::xotcl::alias [self] $methodName \\\n"
 "{*}[expr {${objscope} ? \"-objscope\" : \"\"}] \\\n"
+"{*}[expr {${protected} ? \"-protected\" : \"\"}] \\\n"
+"$cmd}\n"
+"Class 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"