diff --git a/DICTNRY.ASM b/DICTNRY.ASM
index d180f8d..7a78fe8 100644
--- a/DICTNRY.ASM
+++ b/DICTNRY.ASM
@@ -85,6 +85,14 @@
 	NEXT
 
 
+	;; ( char address -- )
+	DEFWORD_RAW SETCHAR, 'C!'
+	POP BX
+	POP AX
+	MOV BYTE [BX], AL
+	NEXT
+
+
 	;; Code field address
 	DEFWORD_RAW CFA, '>CFA'
 	POP BX
@@ -128,6 +136,7 @@
 	NEXT
 
 
+	;; ( start length -- )
 	DEFWORD_RAW CMOVE_HERE, 'CMOVE,'
 	POP CX
 	RSPUSH SI