--- gforth/kernel/vars.fs	1999/03/29 22:52:35	1.15
+++ gforth/kernel/vars.fs	1999/05/05 12:04:41	1.16
@@ -32,7 +32,9 @@ hex \ everything now hex!
   0 Constant false ( -- f ) \ core-ext
 \G CONSTANT: @var{f} is a cell with all bits clear.
 
+[IFUNDEF] cell 
 1 cells Constant cell ( -- u ) \ gforth
+[THEN]
 1 floats Constant float ( -- u ) \ gforth
 
 20 Constant bl ( -- c-char ) \ core