diff --git a/blk/081 b/blk/081
index 8d000fa..83b8219 100644
--- a/blk/081
+++ b/blk/081
@@ -3,7 +3,7 @@ RAMSTART  INITIAL_SP    +53       readln's variables
 +02       CURRENT       +55       adev's variables
 +04       HERE          +57       blk's variables
 +06       C<?*          +59       z80a's variables
-+08       FUTURE USES   +5b       FUTURE USES
++08       C<* override  +5b       FUTURE USES
 +0a       PARSEPTR      +70       DRIVERS
 +0c       C<*           +80       RAMEND
 +0e       WORDBUF
diff --git a/blk/082 b/blk/082
index f55ef93..7253cf7 100644
--- a/blk/082
+++ b/blk/082
@@ -9,8 +9,8 @@ IP is the Interpreter Pointer
 
 PARSEPTR holds routine address called on (parse)
 
-C<* holds routine address called on C<
-
+C<* holds routine address called on C<. If the C<* override
+at 0x08 is nonzero, this routine is called instead.
 
 
                                                         (cont.)
diff --git a/blk/393 b/blk/393
index 0e211ef..1f0d04f 100644
--- a/blk/393
+++ b/blk/393
@@ -7,5 +7,9 @@
 ( w -- a f )
 : (find) CURRENT @ SWAP _find ;
 
-: QUIT (resRS) LIT< INTERPRET (find) DROP EXECUTE ;
+: QUIT
+    (resRS)
+    0 0x08 RAM+ !  ( 08 == C<* override )
+    LIT< INTERPRET (find) DROP EXECUTE
+;
 394 407 LOADR
diff --git a/blk/398 b/blk/398
index d4f296c..7742b75 100644
--- a/blk/398
+++ b/blk/398
@@ -3,7 +3,11 @@
 : (parse) (parsed) NOT IF ABORT THEN ;
 
 : C<? 0x06 RAM+ @ DUP 2 > IF EXECUTE THEN ( 06 == C<?* ) ;
-: C< 0x0c RAM+ @ EXECUTE ( 0c == C<* ) ;
+: C<
+    0x08 RAM+ @  ( 08 == C<* override )
+    DUP NOT IF DROP 0x0c RAM+ @ THEN  ( 0c == C<* )
+    EXECUTE
+;
 
 : , HERE @ ! HERE @ 2+ HERE ! ;
 
diff --git a/blk/405 b/blk/405
index a577231..57614bf 100644
--- a/blk/405
+++ b/blk/405
@@ -3,6 +3,7 @@
     LIT< (parse) (find) DROP (parse*) !
     ( 2e == SYSTEM SCRATCHPAD )
     CURRENT @ 0x2e RAM+ !
+    0 0x08 RAM+ !  ( 08 == C<* override )
     ( 0c == C<* )
     LIT< (boot<) (find) DROP 0x0c RAM+ !
     ( boot< always has a char waiting. 06 == C<?* )
diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index 954c784..58515b4 100644
Binary files a/emul/forth/z80c.bin and b/emul/forth/z80c.bin differ
diff --git a/forth/blk.fs b/forth/blk.fs
index fa2fb19..6ad8bae 100644
--- a/forth/blk.fs
+++ b/forth/blk.fs
@@ -61,28 +61,28 @@
 ;
 
 : LOAD
-    ( save BLK>, CINPTR and boot< ptr to RSP )
+    ( save BLK>, C<* override and boot< ptr to RSP )
     BLK> @ >R
-    0x0c RAM+ @ >R
+    0x08 RAM+ @ >R
     0x2e RAM+ @ >R
     BLK@
     ( Point to beginning of BLK )
     BLK( 0x2e RAM+ !
-    ( 0c == CINPTR )
-    ['] _ 0x0c RAM+ !
+    ( 08 == C<* override )
+    ['] _ 0x08 RAM+ !
     INTERPRET
     R> 0x2e RAM+ !
-    ( Before we restore CINPTR, are we restoring it to "_"?
+    ( Before we restore C<* are we restoring it to "_"?
       if yes, it means we're in a nested LOAD which means we
       should also load back the saved BLK>. Otherwise, we can
       ignore the BLK> from RSP. )
-    I 0x0c RAM+ @ = IF
+    I 0x08 RAM+ @ = IF
         ( nested load )
-        R> DROP ( CINPTR )
+        R> DROP ( C<* )
         R> BLK@
     ELSE
         ( not nested )
-        R> 0x0c RAM+ !
+        R> 0x08 RAM+ !
         R> DROP ( BLK> )
     THEN
 ;