diff --git a/blk/081 b/blk/081
index b2baf2a..c1aa219 100644
--- a/blk/081
+++ b/blk/081
@@ -1,16 +1,16 @@
 (cont.)
-RAMSTART  INITIAL_SP    +55       RESERVED
-+02       CURRENT       +57       readln's variables
-+04       HERE          +59       blk's variables
-+06       C<?           +5b       z80a's variables
-+08       C<* override  +5d       adev's variables
-+0a       PARSEPTR      +5f       FUTURE USES
-+0c       C<*           +70       DRIVERS
-+0e       WORDBUF       +80       RAMEND
+RAMSTART  INITIAL_SP           +55       (key) override
++02       CURRENT              +57       readln's variables
++04       HERE                 +59       blk's variables
++06       C<?                  +5b       z80a's variables
++08       C<* override         +5d       adev's variables
++0a       PARSEPTR             +5f       FUTURE USES
++0c       C<*                  +70       DRIVERS
++0e       WORDBUF              +80       RAMEND
 +2e       BOOT C< PTR
 +4e       INTJUMP
 +51       CURRENTPTR
-+53       (emit) over.
++53       (emit) override
 
 
                                                         (cont.)
diff --git a/blk/359 b/blk/359
index 4e8634c..04e7aa8 100644
--- a/blk/359
+++ b/blk/359
@@ -1,4 +1,4 @@
-: KEY
+: (key)
     ( inc then fetch )
     ACIAR> @ 1+ DUP ACIA) @ = IF
         DROP ACIA( @
diff --git a/blk/405 b/blk/405
index ab303b6..9886dcc 100644
--- a/blk/405
+++ b/blk/405
@@ -4,6 +4,7 @@
     CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )
     0 0x08 RAM+ !  ( 08 == C<* override )
     0 0x53 RAM+ !  ( 53 == (emit) override )
+    0 0x55 RAM+ !  ( 55 == (key) override )
     ( 0c == C<* )
     LIT< (boot<) (find) DROP 0x0c RAM+ !
     ( boot< always has a char waiting. 06 == C<?* )
diff --git a/blk/454 b/blk/454
index 864385b..f3eb716 100644
--- a/blk/454
+++ b/blk/454
@@ -7,9 +7,9 @@
     SPC BS
 ;
 
-
-
-
+: KEY
+    85 RAM+ @ ( (key) override )
+    DUP IF EXECUTE ELSE DROP (key) THEN ;
 
 
 ( cont.: read one char into input buffer and returns whether we
diff --git a/blk/493 b/blk/493
index b3d2717..420b8f2 100644
--- a/blk/493
+++ b/blk/493
@@ -1,4 +1,4 @@
-CODE KEY
+CODE (key)
     A 0x01 LDrn, ( @KEY )
     0x28 RSTn,
     L A LDrr, H 0 LDrn,
diff --git a/emul/forth.bin b/emul/forth.bin
index 8dc20ee..4195a57 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ
diff --git a/emul/xcomp.fs b/emul/xcomp.fs
index e840670..9cb12d2 100644
--- a/emul/xcomp.fs
+++ b/emul/xcomp.fs
@@ -16,8 +16,7 @@ H@ 256 /MOD 2 PC! 2 PC!
 ( Update LATEST )
 PC ORG @ 8 + !
 ," CURRENT @ HERE ! "
-," : (emit) 0 PC! ; "
-," : KEY 0 PC@ ; "
+," : (emit) 0 PC! ; : (key) 0 PC@ ; "
 422 470 XPACKR
-," ' KEY 12 RAM+ ! "
+," ' (key) 12 RAM+ ! "
 H@ 256 /MOD 2 PC! 2 PC!