--- gforth/kernel/int.fs 2000/09/10 19:50:33 1.59 +++ gforth/kernel/int.fs 2000/09/11 20:56:39 1.60 @@ -598,7 +598,7 @@ has? file 0= [IF] \G and input buffer. Interpret. When the parse area is empty, \G restore the input source specification. loadfilename# @ >r - 1 loadfilename# ! \ "\evaluated string/" + 1 loadfilename# ! \ "*evaluated string*" push-file #tib ! >tib ! >in off [ has? file [IF] ]