--- gforth/source.fs	1997/03/04 17:49:55	1.4
+++ gforth/source.fs	1997/05/21 20:39:40	1.5
@@ -36,7 +36,7 @@ end-struct sourcepos
 
 : get-sourcepos ( a-addr -- c-addr u n )
     \ c-addr u is the filename, n is the line number
-    included-files 2@ drop over sourcepos-name# @ 2* cells + 2@
+    dup sourcepos-name# @ loadfilename#>str
     rot sourcepos-line# @ ;
 
 : print-sourcepos ( a-addr -- )