diff --git a/apps/forth/dict.asm b/apps/forth/dict.asm
index 6ffff1c..6667760 100644
--- a/apps/forth/dict.asm
+++ b/apps/forth/dict.asm
@@ -285,7 +285,6 @@ DOES:
 	call	wrCompHL
 	inc	iy \ inc iy		; cell variable space
 	ld	hl, (IP)
-	inc	hl \ inc hl
 	call	wrCompHL
 	ld	(HERE), iy
 	jp	EXIT+2