diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index 532dc5a..d47ac11 100644
Binary files a/emul/forth/z80c.bin and b/emul/forth/z80c.bin differ
diff --git a/forth/forth.asm b/forth/forth.asm
index 0b4ef89..6e68927 100644
--- a/forth/forth.asm
+++ b/forth/forth.asm
@@ -1318,23 +1318,11 @@ PLUS:
 	push	hl
 	jp	next
 
-; ( a b -- c ) A - B
-	.db "-"
-	.dw $-PLUS
-	.db 1
-MINUS:
-	.dw nativeWord
-	pop	de		; B
-	pop	hl		; A
-	call	chkPS
-	or	a		; reset carry
-	sbc	hl, de
-	push	hl
-	jp	next
+.fill 18
 
 ; ( a1 a2 -- b )
 	.db "SCMP"
-	.dw $-MINUS
+	.dw $-PLUS
 	.db 4
 SCMP:
 	.dw nativeWord
diff --git a/forth/z80c.fs b/forth/z80c.fs
index e55364d..dd81f4b 100644
--- a/forth/z80c.fs
+++ b/forth/z80c.fs
@@ -113,6 +113,15 @@ CODE XOR
     HL PUSHqq,
 ;CODE
 
+CODE -
+    DE POPqq,
+    HL POPqq,
+    chkPS,
+    A ORr,
+    DE SBCHLss,
+    HL PUSHqq,
+;CODE
+
 CODE *
     DE POPqq,
     BC POPqq,