Index: generic/predefined.xotcl =================================================================== diff -u -r73e2bbd4ee9e0acbe38dd7bb634a9ad11e7b3bf5 -rb6b46467581277d91ecb78318df079581c1b65fe --- generic/predefined.xotcl (.../predefined.xotcl) (revision 73e2bbd4ee9e0acbe38dd7bb634a9ad11e7b3bf5) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision b6b46467581277d91ecb78318df079581c1b65fe) @@ -73,6 +73,7 @@ {*}[expr {${objscope} ? "-objscope" : ""}] \ {*}[expr {${protected} ? "-protected" : ""}] \ $cmd + } Class method alias {-objscope:switch -per-object:switch -protected:switch methodName cmd} { ::xotcl::alias [self] $methodName \