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, {