diff --git a/forth/forth.asm b/forth/forth.asm
index 80833b1..f3872a0 100644
--- a/forth/forth.asm
+++ b/forth/forth.asm
@@ -683,12 +683,13 @@ CBR:
 	or	l
 	jp	z, BR+2		; False, branch
 	; True, skip next 2 bytes and don't branch
-	ld	hl, IP
-	inc	(hl)
-	inc	(hl)
+	ld	hl, (IP)
+	inc	hl
+	inc	hl
+	ld	(IP), hl
 	jp	next
 
-.fill 18
+.fill 15
 
 	.db	","
 	.dw	$-CBR