--- gforth/utf-8.fs	2005/01/10 10:30:55	1.14
+++ gforth/utf-8.fs	2005/01/13 21:26:46	1.16
@@ -140,3 +140,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