Index: generic/gentclAPI.decls
===================================================================
diff -u -r9ebd1309a52b27ab92e9e3cce07037767efe4a4f -r8c7e00e2907123cab46942451824724f71f658c8
--- generic/gentclAPI.decls	(.../gentclAPI.decls)	(revision 9ebd1309a52b27ab92e9e3cce07037767efe4a4f)
+++ generic/gentclAPI.decls	(.../gentclAPI.decls)	(revision 8c7e00e2907123cab46942451824724f71f658c8)
@@ -372,7 +372,6 @@
 infoClassMethod alias XOTclClassInfoAliasMethod {
   {-argName "object" -required 1 -type class}
   {-argName "-definition"}
-  {-argName "-per-object"}
   {-argName "name"}
 }
 infoClassMethod heritage XOTclClassInfoHeritageMethod {
Index: generic/tclAPI.h
===================================================================
diff -u -r9ebd1309a52b27ab92e9e3cce07037767efe4a4f -r8c7e00e2907123cab46942451824724f71f658c8
--- generic/tclAPI.h	(.../tclAPI.h)	(revision 9ebd1309a52b27ab92e9e3cce07037767efe4a4f)
+++ generic/tclAPI.h	(.../tclAPI.h)	(revision 8c7e00e2907123cab46942451824724f71f658c8)
@@ -197,7 +197,7 @@
 static int XOTclCNewMethod(Tcl_Interp *interp, XOTclClass *cl, XOTclObject *withChildof, int nobjc, Tcl_Obj *CONST nobjv[]);
 static int XOTclCRecreateMethod(Tcl_Interp *interp, XOTclClass *cl, Tcl_Obj *name, int objc, Tcl_Obj *CONST objv[]);
 static int XOTclCSetterMethod(Tcl_Interp *interp, XOTclClass *cl, int withPer_object, char *name);
-static int XOTclClassInfoAliasMethod(Tcl_Interp *interp, XOTclClass *object, int withDefinition, int withPer_object, char *name);
+static int XOTclClassInfoAliasMethod(Tcl_Interp *interp, XOTclClass *object, int withDefinition, char *name);
 static int XOTclClassInfoHeritageMethod(Tcl_Interp *interp, XOTclClass *class, char *pattern);
 static int XOTclClassInfoInstancesMethod(Tcl_Interp *interp, XOTclClass *class, int withClosure, char *patternString, XOTclObject *patternObj);
 static int XOTclClassInfoInstfilterMethod(Tcl_Interp *interp, XOTclClass *class, int withGuards, char *pattern);
@@ -674,11 +674,10 @@
   } else {
     XOTclClass *object = (XOTclClass *)pc.clientData[0];
     int withDefinition = (int )pc.clientData[1];
-    int withPer_object = (int )pc.clientData[2];
-    char *name = (char *)pc.clientData[3];
+    char *name = (char *)pc.clientData[2];
 
     parseContextRelease(&pc);
-    return XOTclClassInfoAliasMethod(interp, object, withDefinition, withPer_object, name);
+    return XOTclClassInfoAliasMethod(interp, object, withDefinition, name);
 
   }
 }
@@ -2333,10 +2332,9 @@
   {"-per-object", 0, 0, convertToBoolean},
   {"name", 1, 0, convertToString}}
 },
-{"::xotcl::cmd::ClassInfo::alias", XOTclClassInfoAliasMethodStub, 4, {
+{"::xotcl::cmd::ClassInfo::alias", XOTclClassInfoAliasMethodStub, 3, {
   {"object", 1, 0, convertToClass},
   {"-definition", 0, 0, convertToString},
-  {"-per-object", 0, 0, convertToString},
   {"name", 0, 0, convertToString}}
 },
 {"::xotcl::cmd::ClassInfo::heritage", XOTclClassInfoHeritageMethodStub, 2, {
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) {
Index: tests/aliastest.xotcl
===================================================================
diff -u -r9ebd1309a52b27ab92e9e3cce07037767efe4a4f -r8c7e00e2907123cab46942451824724f71f658c8
--- tests/aliastest.xotcl	(.../aliastest.xotcl)	(revision 9ebd1309a52b27ab92e9e3cce07037767efe4a4f)
+++ tests/aliastest.xotcl	(.../aliastest.xotcl)	(revision 8c7e00e2907123cab46942451824724f71f658c8)
@@ -112,7 +112,7 @@
 ? {lsort [T info -per-object methods -defined -methodtype alias]} {BAR FOO ZAP}
 ? {lsort [T info -per-object methods -defined -methodtype scripted]} {BAR FOO ZAP bar}
 ? {t foo} ::T->foo
-? {T info alias -per-object -definition ZAP} {::T::BAR}
+? {T info -per-object alias -definition ZAP} {::T::BAR}
 
 ? {T FOO} ->foo
 ? {T BAR} ->foo