--- gforth/kernel/vars.fs	2001/02/24 17:24:45	1.26
+++ gforth/kernel/vars.fs	2001/03/18 22:20:27	1.27
@@ -196,7 +196,9 @@ AUser last-compiled \ address of the las
                     \ 0 if last xt cannot be combined (basic block boundary)
 0 last-compiled !
 
+has? peephole  [IF]
 0 value peeptable \ initialized in boot
+[THEN]
 
 has? glocals [IF]
 User locals-size \ this is the current size of the locals stack