--- gforth/kernel/vars.fs	2006/02/12 23:45:55	1.38
+++ gforth/kernel/vars.fs	2006/02/26 17:23:47	1.40
@@ -48,17 +48,20 @@ has? floating [IF]
 
 FF Constant /line
 
-has? files [IF]
+has? file [IF]
 40 Constant c/l
 10 Constant l/s
 400 Constant chars/block
 [THEN]
 
 20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )
+
+has? EC 0= [IF]
 create holdbuf word-pno-size chars allot
 holdbuf word-pno-size chars + aconstant holdbuf-end
 avariable holdptr holdbuf-end holdptr a!
 avariable holdend holdbuf-end holdend a!
+[THEN]
 
 84 constant pad-minsize ( -- u )