--- gforth/kernel/int.fs 2000/09/09 20:32:58 1.58 +++ gforth/kernel/int.fs 2000/09/10 19:50:33 1.59 @@ -542,7 +542,7 @@ Variable #fill-bytes tib /line [ has? file [IF] ] loadfile @ ?dup - IF (read-line) #fill-bytes ! throw + IF (read-line) throw #fill-bytes ! ELSE [ [THEN] ] sourceline# 0< IF 2drop false EXIT THEN