set #tib to zero on empty line

1 files changed, 1 insertions, 1 deletions

diff --git a/jefs.fs b/jefs.fs
index b568fd0..d2943f9 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -354,7 +354,7 @@ make line-buffer line-buffer-length allot
 \ seem to be having issues with old words being interpreted
 : refill ( -- ? )  source-id 0< if false [ ret, ] then
 	0 >in ! line-buffer tib ! line-buffer line-buffer-length accept
-	0= if ?dup 0= if false [ ret, ] then then #tib ! true ;
+	0= if dup 0= if #tib ! false [ ret, ] then then #tib ! true ;
 
 \ bug: C-d causes stack underflow
 : quit  0 to source-id [compile] [ begin refill while interpret ."  ok" cr repeat ;