Index: generic/xotcl.c
===================================================================
diff -u -r9ebd1309a52b27ab92e9e3cce07037767efe4a4f -r8c7e00e2907123cab46942451824724f71f658c8
--- generic/xotcl.c	(.../xotcl.c)	(revision 9ebd1309a52b27ab92e9e3cce07037767efe4a4f)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 8c7e00e2907123cab46942451824724f71f658c8)
@@ -12596,11 +12596,9 @@
  * Begin Class Info methods
  ***************************/
 static int XOTclClassInfoAliasMethod(Tcl_Interp *interp, XOTclClass *class, 
-                                     int withDefinition, int withPer_object, char *pattern) {
-  Tcl_HashTable *table = withPer_object ? 
-    Tcl_Namespace_cmdTable(class->object.nsPtr) : 
-    Tcl_Namespace_cmdTable(class->nsPtr);
-  return ListAlias(interp, table, pattern, withDefinition, &class->object, withPer_object);
+                                     int withDefinition, char *pattern) {
+  Tcl_HashTable *table = Tcl_Namespace_cmdTable(class->nsPtr);
+  return ListAlias(interp, table, pattern, withDefinition, &class->object, 0);
 }
 
 static int XOTclClassInfoHeritageMethod(Tcl_Interp *interp, XOTclClass *cl, char *pattern) {