diff --git a/blk.fs b/blk.fs
index 3b0fd85..398e7c1 100644
--- a/blk.fs
+++ b/blk.fs
@@ -1717,8 +1717,8 @@ with "390 LOAD"
 ( ----- 356 )
 SYSVARS 0x53 + :** EMIT
 : STYPE C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ;
-: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;
-: CRLF CR LF ; : SPC 32 EMIT ;
+: BS 8 EMIT ; : CR 13 EMIT ;
+: CRLF CR 10 EMIT ; : SPC 32 EMIT ;
 SYSVARS 0x0a + :** NL
 : ERR STYPE ABORT ;
 : (uflw) LIT" stack underflow" ERR ;
@@ -1970,10 +1970,8 @@ SYSVARS 0x0c + :** C<*
         C@+ DUP 0x20 0x7e =><= NOT IF DROP '.' THEN EMIT
     LOOP NL ;
 : DUMP ( n a -- )
-    LF
     SWAP 8 /MOD SWAP IF 1+ THEN
-    0 DO _ LOOP
-;
+    0 DO _ LOOP ;
 ( ----- 378 )
 ( handle backspace: go back one char in IN>, if possible, then
   emit BS + SPC + BS )
@@ -2009,8 +2007,7 @@ SYSVARS 0x55 + :** KEY?
 ( Read one line in input buffer and make IN> point to it )
 : (rdln)
     ( EOT or less triggers line flush )
-    (infl) BEGIN (rdlnc) 5 < UNTIL
-    LF IN( IN> ! ;
+    (infl) BEGIN (rdlnc) 5 < UNTIL IN( IN> ! ;
 ( And finally, implement C<* )
 : RDLN<
     IN> @ C@
diff --git a/cvm/stage.bin b/cvm/stage.bin
index 1585c77..b317698 100644
Binary files a/cvm/stage.bin and b/cvm/stage.bin differ