xml.char-classes: fix upper bound.

diff --git a/basis/xml/char-classes/char-classes.factor b/basis/xml/char-classes/char-classes.factor
index 528198878abd1c93d4c6c18445a6a830badb24cd..77c9db3c1d9a7c58be8c3ad88ba0211ce9a4ca12 100644 (file)
--- a/basis/xml/char-classes/char-classes.factor
+++ b/basis/xml/char-classes/char-classes.factor
@@ -40,7 +40,7 @@ HINTS: name-char? { object fixnum } ;
         [ HEX: 20 HEX: D7FF between? ]
         [ "\t\r\n" member? ]
         [ HEX: E000 HEX: FFFD between? ]
-        [ HEX: 10000 HEX: 10FFFFF between? ]
+        [ HEX: 10000 HEX: 10FFFF between? ]
     } 1|| ; inline
 
 : 1.1-text? ( char -- ? )