--- gforth/kernel/vars.fs	1999/02/03 00:10:26	1.10
+++ gforth/kernel/vars.fs	1999/02/21 14:55:45	1.11
@@ -46,8 +46,13 @@ FF Constant /line
 400 Constant chars/block
 
 $20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )
+create holdbuf word-pno-size chars allot
+holdbuf word-pno-size chars + aconstant holdbuf-end
+avariable holdptr holdbuf-end holdptr a!
+
 84 constant pad-minsize ( -- u )
 
+
 \ that's enough so long
 
 \ User variables                                       13feb93py