--- gforth/utf-8.fs	2005/01/10 10:30:55	1.14
+++ gforth/utf-8.fs	2005/01/12 21:21:53	1.15
@@ -140,3 +140,10 @@ $80 Value max-single-byte
     ['] -u8trailing-garbage is -trailing-garbage
 ;
 
+: utf-8-cold ( -- )
+    s" LANG" getenv 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