Index: generic/xotcl.c =================================================================== diff -u -r18122dd21b99cf0d5b4cd01635048641a23aa051 -r3754364287df2dfdf79b81dfa69224eae19cf691 --- generic/xotcl.c (.../xotcl.c) (revision 18122dd21b99cf0d5b4cd01635048641a23aa051) +++ generic/xotcl.c (.../xotcl.c) (revision 3754364287df2dfdf79b81dfa69224eae19cf691) @@ -12053,11 +12053,11 @@ /* xotclCmd objectproperty XOTclObjectpropertyCmd { - {-argName "object" -required 1 -type tclobj} {-argName "objectkind" -type "object|class|baseclass|metaclass"} + {-argName "object" -required 1 -type tclobj} } */ -static int XOTclObjectpropertyCmd(Tcl_Interp *interp, Tcl_Obj *obj, int objectkind) { +static int XOTclObjectpropertyCmd(Tcl_Interp *interp, int objectkind, Tcl_Obj *obj) { int success = TCL_ERROR; XOTclObject *object;