Index: generic/tclAPI.h
===================================================================
diff -u -r0681f4a21fef723a8d6f5a4da698e5b70189765d -ree516ca61badbed0c2949e21c51755a7020648a7
--- generic/tclAPI.h	(.../tclAPI.h)	(revision 0681f4a21fef723a8d6f5a4da698e5b70189765d)
+++ generic/tclAPI.h	(.../tclAPI.h)	(revision ee516ca61badbed0c2949e21c51755a7020648a7)
@@ -135,6 +135,8 @@
 static int XOTclOVwaitMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int XOTclAliasCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int XOTclConfigureCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
+static int XOTclCreateObjectSystemCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
+static int XOTclFinalizeObjCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int XOTclMethodPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int XOTclMyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int XOTclRelationCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
@@ -233,6 +235,8 @@
 static int XOTclOVwaitMethod(Tcl_Interp *interp, XOTclObject *obj, char *varname);
 static int XOTclAliasCmd(Tcl_Interp *interp, XOTclObject *object, char *methodName, int withObjscope, int withPer_object, int withProtected, Tcl_Obj *cmdName);
 static int XOTclConfigureCmd(Tcl_Interp *interp, int configureoption, Tcl_Obj *value);
+static int XOTclCreateObjectSystemCmd(Tcl_Interp *interp, char *rootClass, char *rootMetaClass);
+static int XOTclFinalizeObjCmd(Tcl_Interp *interp);
 static int XOTclMethodPropertyCmd(Tcl_Interp *interp, XOTclObject *object, char *methodName, int withPer_object, int methodproperty, Tcl_Obj *value);
 static int XOTclMyCmd(Tcl_Interp *interp, int withLocal, Tcl_Obj *method, int nobjc, Tcl_Obj *CONST nobjv[]);
 static int XOTclRelationCmd(Tcl_Interp *interp, XOTclObject *object, int relationtype, Tcl_Obj *value);
@@ -332,6 +336,8 @@
  XOTclOVwaitMethodIdx,
  XOTclAliasCmdIdx,
  XOTclConfigureCmdIdx,
+ XOTclCreateObjectSystemCmdIdx,
+ XOTclFinalizeObjCmdIdx,
  XOTclMethodPropertyCmdIdx,
  XOTclMyCmdIdx,
  XOTclRelationCmdIdx,
@@ -357,7 +363,7 @@
 
   }
 }
-  
+
 static int
 XOTclCheckRequiredArgsStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -376,7 +382,7 @@
 
   }
 }
-  
+
 static int
 XOTclCAllocMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -395,7 +401,7 @@
 
   }
 }
-  
+
 static int
 XOTclCCreateMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -414,7 +420,7 @@
 
   }
 }
-  
+
 static int
 XOTclCDeallocMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -433,7 +439,7 @@
 
   }
 }
-  
+
 static int
 XOTclCInstFilterGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -453,7 +459,7 @@
 
   }
 }
-  
+
 static int
 XOTclCInstForwardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -479,7 +485,7 @@
 
   }
 }
-  
+
 static int
 XOTclCInstMixinGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -499,7 +505,7 @@
 
   }
 }
-  
+
 static int
 XOTclCInstParametercmdMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -518,7 +524,7 @@
 
   }
 }
-  
+
 static int
 XOTclCInstProcMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -541,7 +547,7 @@
 
   }
 }
-  
+
 static int
 XOTclCInstProcMethodCStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -564,7 +570,7 @@
 
   }
 }
-  
+
 static int
 XOTclCInvariantsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -583,7 +589,7 @@
 
   }
 }
-  
+
 static int
 XOTclCNewMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -602,7 +608,7 @@
 
   }
 }
-  
+
 static int
 XOTclCRecreateMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -621,7 +627,7 @@
 
   }
 }
-  
+
 static int
 XOTclCUnknownMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -640,7 +646,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoHeritageMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -659,7 +665,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstancesMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -693,7 +699,7 @@
     return returnCode;
   }
 }
-  
+
 static int
 XOTclClassInfoInstargsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -712,7 +718,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstbodyMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -731,7 +737,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstcommandsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -750,7 +756,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstdefaultMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -771,7 +777,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstfilterMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -791,7 +797,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstfilterguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -810,7 +816,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstforwardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -830,7 +836,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstinvarMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -848,7 +854,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstmixinMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -883,7 +889,7 @@
     return returnCode;
   }
 }
-  
+
 static int
 XOTclClassInfoInstmixinguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -902,7 +908,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstmixinofMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -936,7 +942,7 @@
     return returnCode;
   }
 }
-  
+
 static int
 XOTclClassInfoInstnonposargsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -955,7 +961,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstparametercmdMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -974,7 +980,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstpostMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -993,7 +999,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstpreMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1012,7 +1018,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoInstprocsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1031,7 +1037,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoMixinofMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1065,7 +1071,7 @@
     return returnCode;
   }
 }
-  
+
 static int
 XOTclClassInfoParameterMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1083,7 +1089,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoSlotsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1101,7 +1107,7 @@
 
   }
 }
-  
+
 static int
 XOTclClassInfoSubclassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1135,7 +1141,7 @@
     return returnCode;
   }
 }
-  
+
 static int
 XOTclClassInfoSuperclassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1155,7 +1161,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoArgsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1174,7 +1180,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoBodyMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1193,7 +1199,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoCheckMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1211,7 +1217,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoChildrenMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1230,7 +1236,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoClassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1248,7 +1254,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoCommandsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1267,7 +1273,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoDefaultMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1288,7 +1294,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoFilterMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1309,7 +1315,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoFilterguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1328,7 +1334,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoForwardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1348,7 +1354,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoHasnamespaceMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1366,7 +1372,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoInvarMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1384,7 +1390,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoMethodsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1407,7 +1413,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoMixinMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1442,7 +1448,7 @@
     return returnCode;
   }
 }
-  
+
 static int
 XOTclObjInfoMixinguardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1461,7 +1467,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoNonposargsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1480,7 +1486,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoParametercmdMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1499,7 +1505,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoParentMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1517,7 +1523,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoPostMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1536,7 +1542,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoPreMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1555,7 +1561,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoPrecedenceMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1575,7 +1581,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoProcsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1594,7 +1600,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoSlotObjectsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1613,7 +1619,7 @@
 
   }
 }
-  
+
 static int
 XOTclObjInfoVarsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1632,7 +1638,7 @@
 
   }
 }
-  
+
 static int
 XOTclOAutonameMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1653,7 +1659,7 @@
 
   }
 }
-  
+
 static int
 XOTclOCheckMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1672,7 +1678,7 @@
 
   }
 }
-  
+
 static int
 XOTclOCleanupMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1691,7 +1697,7 @@
 
   }
 }
-  
+
 static int
 XOTclOConfigureMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1710,7 +1716,7 @@
 
   }
 }
-  
+
 static int
 XOTclODestroyMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1729,7 +1735,7 @@
 
   }
 }
-  
+
 static int
 XOTclOExistsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1748,7 +1754,7 @@
 
   }
 }
-  
+
 static int
 XOTclOFilterGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1768,7 +1774,7 @@
 
   }
 }
-  
+
 static int
 XOTclOFilterSearchMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1787,7 +1793,7 @@
 
   }
 }
-  
+
 static int
 XOTclOForwardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1813,7 +1819,7 @@
 
   }
 }
-  
+
 static int
 XOTclOInstVarMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1832,7 +1838,7 @@
 
   }
 }
-  
+
 static int
 XOTclOInvariantsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1851,7 +1857,7 @@
 
   }
 }
-  
+
 static int
 XOTclOIsClassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1870,7 +1876,7 @@
 
   }
 }
-  
+
 static int
 XOTclOIsMetaClassMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1889,7 +1895,7 @@
 
   }
 }
-  
+
 static int
 XOTclOIsMixinMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1908,7 +1914,7 @@
 
   }
 }
-  
+
 static int
 XOTclOIsObjectMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1927,7 +1933,7 @@
 
   }
 }
-  
+
 static int
 XOTclOIsTypeMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1946,7 +1952,7 @@
 
   }
 }
-  
+
 static int
 XOTclOMixinGuardMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1966,7 +1972,7 @@
 
   }
 }
-  
+
 static int
 XOTclONextMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -1985,7 +1991,7 @@
 
   }
 }
-  
+
 static int
 XOTclONoinitMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2004,7 +2010,7 @@
 
   }
 }
-  
+
 static int
 XOTclOParametercmdMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2023,7 +2029,7 @@
 
   }
 }
-  
+
 static int
 XOTclOProcMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2046,7 +2052,7 @@
 
   }
 }
-  
+
 static int
 XOTclOProcSearchMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2065,7 +2071,7 @@
 
   }
 }
-  
+
 static int
 XOTclORequireNamespaceMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2084,7 +2090,7 @@
 
   }
 }
-  
+
 static int
 XOTclOSetMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2104,7 +2110,7 @@
 
   }
 }
-  
+
 static int
 XOTclOSetvaluesMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2123,7 +2129,7 @@
 
   }
 }
-  
+
 static int
 XOTclOUplevelMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2142,7 +2148,7 @@
 
   }
 }
-  
+
 static int
 XOTclOUpvarMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2161,7 +2167,7 @@
 
   }
 }
-  
+
 static int
 XOTclOVolatileMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2180,7 +2186,7 @@
 
   }
 }
-  
+
 static int
 XOTclOVwaitMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2199,7 +2205,7 @@
 
   }
 }
-  
+
 static int
 XOTclAliasCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2222,7 +2228,7 @@
 
   }
 }
-  
+
 static int
 XOTclConfigureCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2241,8 +2247,45 @@
 
   }
 }
-  
+
 static int
+XOTclCreateObjectSystemCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
+  parseContext pc;
+
+  if (parseObjv(interp, objc, objv, objv[0], 
+		method_definitions[XOTclCreateObjectSystemCmdIdx].ifd, 
+		method_definitions[XOTclCreateObjectSystemCmdIdx].ifdSize, 
+		&pc) != TCL_OK) {
+    return TCL_ERROR;
+  } else {
+    char *rootClass = (char *)pc.clientData[0];
+    char *rootMetaClass = (char *)pc.clientData[1];
+
+    parseContextRelease(&pc);
+    return XOTclCreateObjectSystemCmd(interp, rootClass, rootMetaClass);
+
+  }
+}
+
+static int
+XOTclFinalizeObjCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
+  parseContext pc;
+
+  if (parseObjv(interp, objc, objv, objv[0], 
+		method_definitions[XOTclFinalizeObjCmdIdx].ifd, 
+		method_definitions[XOTclFinalizeObjCmdIdx].ifdSize, 
+		&pc) != TCL_OK) {
+    return TCL_ERROR;
+  } else {
+    
+
+    parseContextRelease(&pc);
+    return XOTclFinalizeObjCmd(interp);
+
+  }
+}
+
+static int
 XOTclMethodPropertyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
 
@@ -2263,7 +2306,7 @@
 
   }
 }
-  
+
 static int
 XOTclMyCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2282,7 +2325,7 @@
 
   }
 }
-  
+
 static int
 XOTclRelationCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2302,7 +2345,7 @@
 
   }
 }
-  
+
 static int
 XOTclSetInstvarCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
@@ -2322,7 +2365,7 @@
 
   }
 }
-  
+
 static methodDefinition method_definitions[] = {
 {"::xotcl::cmd::NonposArgs::type=boolean", XOTclCheckBooleanArgsStub, 2, {
   {"name", 1, 0, convertToString},
@@ -2712,6 +2755,13 @@
   {"filter|softrecreate", 1, 0, convertToConfigureoption},
   {"value", 0, 0, convertToTclobj}}
 },
+{"::xotcl::createobjectsystem", XOTclCreateObjectSystemCmdStub, 2, {
+  {"rootClass", 1, 0, convertToString},
+  {"rootMetaClass", 1, 0, convertToString}}
+},
+{"::xotcl::finalize", XOTclFinalizeObjCmdStub, 0, {
+  }
+},
 {"::xotcl::methodproperty", XOTclMethodPropertyCmdStub, 5, {
   {"object", 1, 0, convertToObject},
   {"methodName", 1, 0, convertToString},