Index: generic/tclAPI.h
===================================================================
diff -u -r496ffe8fb5e5bdaba56fe3a939d32634bdbcb088 -r536cacc0e51390f46b6bde5874c823ea03e732e2
--- generic/tclAPI.h	(.../tclAPI.h)	(revision 496ffe8fb5e5bdaba56fe3a939d32634bdbcb088)
+++ generic/tclAPI.h	(.../tclAPI.h)	(revision 536cacc0e51390f46b6bde5874c823ea03e732e2)
@@ -283,7 +283,7 @@
 static int XOTclRelationCmd(Tcl_Interp *interp, XOTclObject *object, int relationtype, Tcl_Obj *value);
 static int XOTclSetInstvarCmd(Tcl_Interp *interp, XOTclObject *object, Tcl_Obj *variable, Tcl_Obj *value);
 static int XOTclSetterCmd(Tcl_Interp *interp, XOTclObject *object, int withPer_object, Tcl_Obj *parameter);
-static int XOTclValuecheckCmd(Tcl_Interp *interp, Tcl_Obj *param, int withNocomplain, Tcl_Obj *value);
+static int XOTclValuecheckCmd(Tcl_Interp *interp, int withNocomplain, Tcl_Obj *param, Tcl_Obj *value);
 
 enum {
  XOTclCAllocMethodIdx,
@@ -1946,12 +1946,12 @@
                      &pc) != TCL_OK) {
     return TCL_ERROR;
   } else {
-    Tcl_Obj *param = (Tcl_Obj *)pc.clientData[0];
-    int withNocomplain = (int )PTR2INT(pc.clientData[1]);
+    int withNocomplain = (int )PTR2INT(pc.clientData[0]);
+    Tcl_Obj *param = (Tcl_Obj *)pc.clientData[1];
     Tcl_Obj *value = (Tcl_Obj *)pc.clientData[2];
 
     parseContextRelease(&pc);
-    return XOTclValuecheckCmd(interp, param, withNocomplain, value);
+    return XOTclValuecheckCmd(interp, withNocomplain, param, value);
 
   }
 }
@@ -2311,8 +2311,8 @@
   {"parameter", 0, 0, convertToTclobj}}
 },
 {"::xotcl::valuecheck", XOTclValuecheckCmdStub, 3, {
-  {"param", 0, 0, convertToTclobj},
   {"-nocomplain", 0, 0, convertToString},
+  {"param", 0, 0, convertToTclobj},
   {"value", 0, 0, convertToTclobj}}
 },{NULL}
 };