Index: generic/xotcl.c
===================================================================
diff -u -r8ec36a4408ae5e7546b4f16fccfa458a2242cb81 -rbe717fe9ef13e09dcfabf496ca61d75e4c042422
--- generic/xotcl.c	(.../xotcl.c)	(revision 8ec36a4408ae5e7546b4f16fccfa458a2242cb81)
+++ generic/xotcl.c	(.../xotcl.c)	(revision be717fe9ef13e09dcfabf496ca61d75e4c042422)
@@ -10275,8 +10275,17 @@
 /*********************************
  * Begin generated XOTcl commands
  *********************************/
-static int XOTclAliasCmd(Tcl_Interp *interp, XOTclObject *object, char *methodName,
-                         int withObjscope, int withPer_object, Tcl_Obj *cmdName) {
+/*
+xotclCmd alias XOTclAliasCmd {
+  {-argName "object" -type object}
+  {-argName "-per-object"}
+  {-argName "methodName"}
+  {-argName "-objscope"}
+  {-argName "cmdName" -required 1 -type tclobj}
+}
+*/
+static int XOTclAliasCmd(Tcl_Interp *interp, XOTclObject *object, int withPer_object, 
+                         char *methodName, int withObjscope, Tcl_Obj *cmdName) {
   Tcl_ObjCmdProc *objProc, *newObjProc = NULL;
   Tcl_CmdDeleteProc *deleteProc = NULL;
   AliasCmdClientData *tcd = NULL; /* make compiler happy */
@@ -10616,8 +10625,7 @@
 
 
 static int
-XOTclDispatchCmd(Tcl_Interp *interp, XOTclObject *object, 
-                 int withObjscope, int withNoassertions,
+XOTclDispatchCmd(Tcl_Interp *interp, XOTclObject *object, int withObjscope, 
                  Tcl_Obj *command, int nobjc, Tcl_Obj *CONST nobjv[]) {
   int result;
   char *methodName = ObjStr(command);
@@ -10875,8 +10883,17 @@
   return TCL_OK;
 }
 
-static int XOTclMethodPropertyCmd(Tcl_Interp *interp, XOTclObject *object, Tcl_Obj *methodObj,
-                                  int withPer_object, int methodproperty, Tcl_Obj *value) {
+/*
+xotclCmd methodproperty XOTclMethodPropertyCmd {
+  {-argName "object" -required 1 -type object}
+  {-argName "-per-object"}
+  {-argName "methodName" -required 1 -type tclobj}
+  {-argName "methodproperty" -required 1 -type "protected|redefine-protected|slotobj"}
+  {-argName "value" -type tclobj}
+}
+*/
+static int XOTclMethodPropertyCmd(Tcl_Interp *interp, XOTclObject *object, int withPer_object,
+                                  Tcl_Obj *methodObj, int methodproperty, Tcl_Obj *value) {
   char *methodName = ObjStr(methodObj);
   Tcl_Command cmd = NULL;
   
@@ -11718,9 +11735,14 @@
   return setInstVar(interp, object , variable, value);
 }
 
-/* TODO move me at the right place */
-static int XOTclSetterCmd(Tcl_Interp *interp, XOTclObject *object, char *methodName, 
-                          int withPer_object) {
+/* 
+xotclCmd setter XOTclSetterCmd {
+  {-argName "object" -required 1 -type object}
+  {-argName "-per-object"}
+  {-argName "methodName" -required 1}
+  } */
+static int XOTclSetterCmd(Tcl_Interp *interp, XOTclObject *object,  int withPer_object,
+                          char *methodName) {
   int result;
   XOTclClass *cl = (withPer_object || ! XOTclObjectIsClass(object)) ? NULL : (XOTclClass *)object;