diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index 4a50d46..0076be7 100644
Binary files a/emul/forth/z80c.bin and b/emul/forth/z80c.bin differ
diff --git a/forth/icore.fs b/forth/icore.fs
index 2443bf5..8ef35c8 100644
--- a/forth/icore.fs
+++ b/forth/icore.fs
@@ -244,6 +244,8 @@
     32 _c , _c ,
 ;
 
+: IMMED? 1 _c - _c C@ 0x80 _c AND ;
+
 ( : and ; have to be defined last because it can't be
   executed now also, they can't have their real name
   right away.
diff --git a/forth/z80c.fs b/forth/z80c.fs
index 61a217e..d7cc056 100644
--- a/forth/z80c.fs
+++ b/forth/z80c.fs
@@ -311,18 +311,6 @@ CODE R>
     HL PUSHqq,
 ;CODE
 
-CODE IMMED?
-    HL POPqq,
-    chkPS,
-    HL DECss,
-    DE 0 LDddnn,
-    7 (HL) BITbr,
-    JRZ, L1 FWR ( notset )
-    DE INCss,
-L1 FSET ( notset )
-    DE PUSHqq,
-;CODE
-
 CODE BYE
     HALT,
 ;CODE