Index: library/xml/TclExpat-1.1/xmltok_impl.c
===================================================================
diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -r89f7412de051bd0fd8e4fdf827b0ace187d56bd4
--- library/xml/TclExpat-1.1/xmltok_impl.c	(.../xmltok_impl.c)	(revision c72f9f638677608fab1502cd696c8f2d6b2952f9)
+++ library/xml/TclExpat-1.1/xmltok_impl.c	(.../xmltok_impl.c)	(revision 89f7412de051bd0fd8e4fdf827b0ace187d56bd4)
@@ -1606,7 +1606,7 @@
 			    const char *end,
 			    POSITION *pos)
 {
-  while (ptr != end) {
+  while (ptr < end) {
     switch (BYTE_TYPE(enc, ptr)) {
 #define LEAD_CASE(n) \
     case BT_LEAD ## n: \