--- gforth/kernel/int.fs	2006/01/27 10:43:52	1.125
+++ gforth/kernel/int.fs	2006/01/29 18:34:34	1.126
@@ -989,7 +989,9 @@ AVariable init8 NIL init8 !
 [ has? file [IF] ]
     os-cold
 [ [THEN] ]
+[ has? ec 0= [IF] ]
     set-encoding-fixed-width
+[ [THEN] ]
     'cold
     init8 chainperform
 [ has? file [IF] ]