--- gforth/utf-8.fs	2005/01/12 21:21:53	1.15
+++ gforth/utf-8.fs	2005/01/13 21:26:46	1.16
@@ -141,7 +141,11 @@ $80 Value max-single-byte
 ;
 
 : utf-8-cold ( -- )
-    s" LANG" getenv s" .UTF-8" search nip nip
+    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