--- gforth/kernel/vars.fs	2006/02/18 13:12:52	1.39
+++ gforth/kernel/vars.fs	2006/02/26 17:23:47	1.40
@@ -55,10 +55,13 @@ has? file [IF]
 [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 )