--- gforth/utf-8.fs	2005/01/10 10:30:55	1.14
+++ gforth/utf-8.fs	2005/11/05 23:26:49	1.17
@@ -27,11 +27,12 @@ $80 Value max-single-byte
 : u8len ( u8 -- n )
     dup      max-single-byte u< IF  drop 1  EXIT  THEN \ special case ASCII
     $800  2 >r
-    BEGIN  2dup u>=  WHILE  5 lshift r> 1+ >r  REPEAT
+    BEGIN  2dup u>=  WHILE  5 lshift r> 1+ >r  dup 0= UNTIL  THEN
     2drop r> ;
 
 : u8@+ ( u8addr -- u8addr' u )
     count  dup max-single-byte u< ?EXIT  \ special case ASCII
+    dup $C2 u< IF  UTF-8-err throw  THEN  \ malformed character
     $7F and  $40 >r
     BEGIN  dup r@ and  WHILE  r@ xor
 	    6 lshift r> 5 lshift >r >r count
@@ -72,6 +73,7 @@ $80 Value max-single-byte
 
 : u8key ( -- u )
     defers key dup max-single-byte u< ?EXIT  \ special case ASCII
+    dup $C2 u< IF  UTF-8-err throw  THEN  \ malformed character
     $7F and  $40 >r
     BEGIN  dup r@ and  WHILE  r@ xor
 	    6 lshift r> 5 lshift >r >r defers key
@@ -140,3 +142,14 @@ $80 Value max-single-byte
     ['] -u8trailing-garbage is -trailing-garbage
 ;
 
+: utf-8-cold ( -- )
+    s" LC_ALL" getenv 2dup d0= IF  2drop
+	s" LC_CTYPE" getenv 2dup d0= IF  2drop
+	    s" LANG" getenv 2dup d0= IF  2drop
+		s" C"  THEN THEN THEN
+    s" UTF-8" search nip nip
+    IF  set-encoding-utf-8  ELSE  set-encoding-fixed-width  THEN ;
+
+' utf-8-cold INIT8 chained
+
+utf-8-cold