Index: generic/xotcl.c
===================================================================
diff -u -r962c96dcc0ddc25782570a831c104fb2b955891d -r142687efa93af981936db61ecfde494d8f269b0a
--- generic/xotcl.c	(.../xotcl.c)	(revision 962c96dcc0ddc25782570a831c104fb2b955891d)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 142687efa93af981936db61ecfde494d8f269b0a)
@@ -10170,8 +10170,7 @@
  * Begin generated XOTcl commands
  *********************************/
 static int XOTclAliasCmd(Tcl_Interp *interp, XOTclObject *object, char *methodName,
-                         int withObjscope, int withPer_object, int withProtected, 
-                         Tcl_Obj *cmdName) {
+                         int withObjscope, int withPer_object, Tcl_Obj *cmdName) {
   Tcl_ObjCmdProc *objProc, *newObjProc = NULL;
   Tcl_CmdDeleteProc *deleteProc = NULL;
   AliasCmdClientData *tcd = NULL; /* make compiler happy */
@@ -10284,7 +10283,7 @@
     tcd = Tcl_Command_objClientData(cmd);
   }
 
-  flags = withProtected ? XOTCL_CMD_PROTECTED_METHOD : 0;
+  flags = 0;
 
   if (allocation == 'c') {
     XOTclClass *cl = (XOTclClass *)object;
@@ -10318,7 +10317,6 @@
     Tcl_DStringInit(dsPtr);
     /*if (withPer_object) {Tcl_DStringAppend(dsPtr, "-per-object ", -1);}*/
     if (withObjscope) {Tcl_DStringAppend(dsPtr, "-objscope ", -1);}
-    if (withProtected) {Tcl_DStringAppend(dsPtr, "-protected ", -1);}
     Tcl_DStringAppend(dsPtr, ObjStr(cmdName), -1);
     AliasAdd(interp, object->cmdName, methodName, allocation == 'o', Tcl_DStringValue(dsPtr));
     Tcl_DStringFree(dsPtr);
@@ -10648,21 +10646,14 @@
     }
   } else {
     XOTclClass *cl;
-    char allocation;
 
-    if (XOTclObjectIsClass(object)) {
-      cl = (XOTclClass *)object;
-      allocation = 'c';
-    } else {
+    if (withPer_object) {
       cl = NULL;
-      allocation = 'o';
+    } else {
+      cl = XOTclObjectIsClass(object) ? (XOTclClass *)object : NULL;
     }
 
-    if (withPer_object) {
-      allocation = 'o';
-    }
-
-    if (allocation == 'o') {
+    if (cl == NULL) {
       if (object->nsPtr)
         cmd = FindMethod(object->nsPtr, methodName);
       if (!cmd) {