Index: generic/predefined.xotcl
===================================================================
diff -u -r666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0 -r73e2bbd4ee9e0acbe38dd7bb634a9ad11e7b3bf5
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision 666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision 73e2bbd4ee9e0acbe38dd7bb634a9ad11e7b3bf5)
@@ -65,11 +65,23 @@
 
   # Add an alias method. cmdName for XOTcl method can be added via
   #   [... info method name <methodName>]
-  Object method alias {-per-object:switch methodName cmd} {
-    ::xotcl::alias [self] $methodName {*}[expr {${per-object} ? "-per-object" : ""}] $cmd
-  }
 
+  ::xotcl::alias Object $cmd -objscope ::$cmd
 
+  Object method alias {-objscope:switch -protected:switch methodName cmd} {
+    ::xotcl::alias [self] $methodName \
+        {*}[expr {${objscope} ? "-objscope" : ""}] \
+        {*}[expr {${protected} ? "-protected" : ""}] \
+        $cmd
+
+  Class method alias {-objscope:switch -per-object:switch -protected:switch methodName cmd} {
+    ::xotcl::alias [self] $methodName \
+        {*}[expr {${objscope} ? "-objscope" : ""}] \
+        {*}[expr {${per-object} ? "-per-object" : ""}] \
+        {*}[expr {${protected} ? "-protected" : ""}] \
+        $cmd
+  }
+
   ########################
   # Info definition
   ########################