--- gforth/kernel/vars.fs	2003/03/09 15:17:07	1.34
+++ gforth/kernel/vars.fs	2006/01/31 15:25:44	1.37
@@ -69,11 +69,11 @@ $400 Value def#tib
 
 \ initialized by COLD
 
-Create main-task  has? OS [IF] 100 [ELSE] 40 [THEN] cells allot
+Create main-task  has? OS [IF] 100 [ELSE] 40 [THEN] cells dup allot
 
 \ set user-pointer from cross-compiler right
 main-task 
-UNLOCK tup ! LOCK
+UNLOCK swap region user-region user-region setup-region LOCK
 
 Variable udp ( -- a-addr ) \ gforth
 \G user area size
@@ -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.
@@ -165,7 +168,7 @@ User dpl ( -- a-addr ) \ gforth
 \G @code{User} variable -- @i{a-addr} is the address of a cell that stores the 		
 \G position of the decimal point in the most recent numeric conversion.
 \G Initialised to -1. After the conversion of a number containing no
-\G decimal point, @code{@ dpl} is -1. After the conversion of @code{2.} it holds
+\G decimal point, @code{dpl} is -1. After the conversion of @code{2.} it holds
 \G 0. After the conversion of 234123.9 it contains 1, and so forth.
 -1 dpl !
 
@@ -192,11 +195,6 @@ AUser dpp		normal-dp dpp !
 AUser LastCFA
 AUser Last
 
-AUser last-compiled \ last compile,d xt
-                    \ 0 if last xt was dyn-compiled already (basic-block-end)
-0 last-compiled !
-AUser last-compiled-here \ where LAST-COMPILED should be stored
-
 User max-name-length \ maximum length of all names defined yet
 32 max-name-length !