Index: library/xml/TclExpat-1.1/tclexpat.c
===================================================================
diff -u -N -r4dd2595d98574faaac87f5dd33b542516fdff5df -rc62d53c170d3b0a6d401a07b20cd41d929eccfd2
--- library/xml/TclExpat-1.1/tclexpat.c	(.../tclexpat.c)	(revision 4dd2595d98574faaac87f5dd33b542516fdff5df)
+++ library/xml/TclExpat-1.1/tclexpat.c	(.../tclexpat.c)	(revision c62d53c170d3b0a6d401a07b20cd41d929eccfd2)
@@ -384,7 +384,7 @@
 {
   TclExpatInfo *expat = (TclExpatInfo *) clientData;
   char *data;
-  size_t len;
+  int len;
   int index, result = TCL_OK;
   static char CONST_XOTCL_EXPAT *options[] = {
     "configure", "cget", "parse", "reset", NULL
@@ -423,7 +423,7 @@
 
       data = Tcl_GetStringFromObj(objv[2], &len);
 
-      result = TclExpatParse(interp, expat, data, len);
+      result = TclExpatParse(interp, expat, data, (size_t)len);
 
       break;