--- gforth/kernel/vars.fs	2001/03/18 22:20:27	1.27
+++ gforth/kernel/vars.fs	2003/01/20 19:17:59	1.32
@@ -76,7 +76,7 @@ main-task
 UNLOCK tup ! LOCK
 
 Variable udp ( -- a-addr ) \ gforth
-\ user area size? -anton
+\G user area size
 
 AUser next-task        main-task next-task !
 AUser prev-task        main-task prev-task !
@@ -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
@@ -192,9 +192,10 @@ AUser dpp		normal-dp dpp !
 AUser LastCFA
 AUser Last
 
-AUser last-compiled \ address of the last compiled xt
-                    \ 0 if last xt cannot be combined (basic block boundary)
+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
 
 has? peephole  [IF]
 0 value peeptable \ initialized in boot