--- gforth/utf-8.fs	2008/11/23 21:09:55	1.37
+++ gforth/utf-8.fs	2009/12/31 15:32:35	1.40
@@ -1,6 +1,6 @@
 \ UTF-8 handling                                       12dec04py
 
-\ Copyright (C) 2004,2005,2006,2007,2008 Free Software Foundation, Inc.
+\ Copyright (C) 2004,2005,2006,2007,2008,2009 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -119,7 +119,8 @@ Defer check-xy  ' noop IS check-xy
     dup $f8 u< if drop 4 exit endif
     dup $fc u< if drop 5 exit endif
     dup $fe u< if drop 6 exit endif
-    UTF-8-err throw ;
+    dup $ff u< if drop 7 exit endif
+    drop 8 ;
 
 : -u8trailing-garbage ( addr u1 -- addr u2 )
     2dup + dup u8<< ( addr u1 end1 end2 )
@@ -325,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 ( -- )