--- gforth/kernel/vars.fs	2003/01/20 17:07:42	1.31
+++ gforth/kernel/vars.fs	2003/01/20 19:17:59	1.32
@@ -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