--- gforth/kernel/vars.fs	2003/01/19 23:35:35	1.30
+++ gforth/kernel/vars.fs	2003/03/09 15:17:07	1.34
@@ -1,6 +1,6 @@
 \ VARS.FS      Kernal variables
 
-\ Copyright (C) 1995-2003 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -145,7 +145,7 @@ has? file [IF]
 
  User loadfile          0 loadfile !
 
- User loadfilename#	0 loadfilename# !
+ 2user loadfilename	0 0 loadfilename 2! \ addr u for sourcefilename
 
  User loadline          \ number of the currently interpreted
                         \ (in TIB) line if the interpretation
@@ -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