Index: generic/xotcl.c
===================================================================
diff -u -rb62dcaa16d03cd56d95a75f493cbd0de0fb5c60b -rf4cb2e4e7480820bada88c519980cfb0a4d3f1be
--- generic/xotcl.c	(.../xotcl.c)	(revision b62dcaa16d03cd56d95a75f493cbd0de0fb5c60b)
+++ generic/xotcl.c	(.../xotcl.c)	(revision f4cb2e4e7480820bada88c519980cfb0a4d3f1be)
@@ -6013,13 +6013,13 @@
 static int convertToBoolean(Tcl_Interp *interp, Tcl_Obj *objPtr,  XOTclParam CONST *pPtr, ClientData *clientData) {
   int result, bool;
   result = Tcl_GetBooleanFromObj(interp, objPtr, &bool);
-  if (result == TCL_OK) *clientData = (ClientData)bool;
+  if (result == TCL_OK) *clientData = (ClientData)INT2PTR(bool);
   return result;
 }
 static int convertToInteger(Tcl_Interp *interp, Tcl_Obj *objPtr,  XOTclParam CONST *pPtr, ClientData *clientData) {
   int result, i;
   result = Tcl_GetIntFromObj(interp, objPtr, &i);
-  if (result == TCL_OK) *clientData = (ClientData)i;
+  if (result == TCL_OK) *clientData = (ClientData)INT2PTR(i);
   return result;
 }
 static int convertToSwitch(Tcl_Interp *interp, Tcl_Obj *objPtr, XOTclParam CONST *pPtr, ClientData *clientData) {