--- gforth/kernel/vars.fs	2003/10/03 09:14:27	1.36
+++ gforth/kernel/vars.fs	2006/01/31 15:25:44	1.37
@@ -146,7 +146,7 @@ has? file [IF]
  User loadfile          0 loadfile !
 
  2user loadfilename	0 0 loadfilename 2! \ addr u for sourcefilename
-
+     
  User loadline          \ number of the currently interpreted
                         \ (in TIB) line if the interpretation
                         \ is in a textfile
@@ -157,6 +157,9 @@ has? file [IF]
 [THEN]
 [THEN]
 
+ 2user includefilename  0 0 includefilename 2! \ innermost included file
+
+
 User base ( -- a-addr ) \ core
 \G @code{User} variable -- @i{a-addr} is the address of a cell that stores the
 \G number base used by default for number conversion during input and output.