Index: generic/xotcl.c
===================================================================
diff -u -r224d1a24b787b67fb9f0ff8a894f3092e8e4d5ae -r5f4e564db33cac6f6fdf57c6ba82f61603641004
--- generic/xotcl.c	(.../xotcl.c)	(revision 224d1a24b787b67fb9f0ff8a894f3092e8e4d5ae)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 5f4e564db33cac6f6fdf57c6ba82f61603641004)
@@ -12167,7 +12167,8 @@
   XOTclClass *cl = (withPer_object || ! XOTclObjectIsClass(object)) ? NULL : (XOTclClass *)object;
   CONST char *methodName = ObjStr(parameter);
   SetterCmdClientData *setterClientData;
-  int j, length, result;
+  size_t j, length;
+  int result;
 
   if (*methodName == '-') {
     return XOTclVarErrMsg(interp,