diff --git a/blk/111 b/blk/111
index 851f3be..c7351f9 100644
--- a/blk/111
+++ b/blk/111
@@ -1,5 +1,5 @@
 : _blen ( buf -- length of str in buf )
-    DUP BEGIN C@+ EOL? UNTIL -^ 1- ;
+    DUP BEGIN C@+ 0x20 < UNTIL -^ 1- ;
 : _rbufsz ( size of linebuf to the right of curpos )
     EDPOS @ 64 MOD 63 -^ ;
 : i COMPILE I ; IMMEDIATE ( save overshadowed )
diff --git a/blk/391 b/blk/391
index f34b504..7156520 100644
--- a/blk/391
+++ b/blk/391
@@ -1,11 +1,10 @@
 : .2 DUP 10 < IF SPC THEN . ;
-: EOL? ( c -- f ) DUP 0xd = SWAP NOT OR ;
 : LIST
     BLK@
     16 0 DO
         I 1+ .2 SPC
         64 I * BLK( + DUP 64 + SWAP DO
-            I C@ DUP EOL? IF DROP LEAVE ELSE EMIT THEN
+            I C@ 0x20 MAX EMIT
         LOOP
         NL
     LOOP
diff --git a/emul/forth.bin b/emul/forth.bin
index eeb152e..8b9a35c 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ