--- gforth/utf-8.fs	2009/01/17 16:55:54	1.38
+++ gforth/utf-8.fs	2009/05/11 08:07:44	1.39
@@ -326,6 +326,9 @@ environment-wordlist set-current
     \G ``ISO-LATIN-1'' or ``UTF-8'', with the exception of ``ASCII'', where
     \G we prefer the alias ``ASCII''.
     max-single-byte $80 = IF s" UTF-8" ELSE s" ISO-LATIN-1" THEN ;
+: max-xchar ( -- xchar )
+    max-single-byte $80 = IF $7FFFFFFF  ELSE  $FF  THEN ;
+' noop Alias X:xchar
 forth definitions
 
 :noname ( -- )