--- gforth/kernel/vars.fs	2003/01/20 19:17:59	1.32
+++ gforth/kernel/vars.fs	2003/02/06 20:42:26	1.33
@@ -197,9 +197,12 @@ AUser last-compiled \ last compile,d xt
 0 last-compiled !
 AUser last-compiled-here \ where LAST-COMPILED should be stored
 
-has? peephole  [IF]
-0 value peeptable \ initialized in boot
-[THEN]
+User max-name-length \ maximum length of all names defined yet
+32 max-name-length !
+    
+\  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