--- gforth/extend.fs 2000/08/17 12:46:57 1.41 +++ gforth/extend.fs 2000/09/10 19:50:33 1.43 @@ -146,7 +146,8 @@ decimal >in @ loadfile @ if - loadfile @ file-position throw #TIB @ 1+ 0 d- \ !! bug for CRLF and EOF + loadfile @ file-position throw + [IFDEF] #fill-bytes #fill-bytes @ [ELSE] #tib @ 1+ [THEN] 0 d- else blk @ linestart @