--- gforth/Attic/kernal.fs 1995/06/07 10:05:06 1.38 +++ gforth/Attic/kernal.fs 1995/08/29 21:07:35 1.39 @@ -1148,7 +1148,7 @@ Defer key \ Query 07apr93py : refill ( -- flag ) - blk @ IF 1 blk +! true EXIT THEN + blk @ IF 1 blk +! true 0 >in ! EXIT THEN tib /line loadfile @ ?dup IF read-line throw