X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=stack.asm;h=d26bf7b2c9d137fd2dc9a152653cbd59d33590a3;hb=a3427c86d68cc40ac6f9ed1bd153bb45f0456b55;hp=32db5aef859f3734a55e32bd854ee68722a27cfd;hpb=1e20129cc5801258ef162be39d764693511ff6fb;p=rrq%2Frrqforth.git

diff --git a/stack.asm b/stack.asm
index 32db5ae..d26bf7b 100644
--- a/stack.asm
+++ b/stack.asm
@@ -119,9 +119,9 @@ p_roll_eq:
 	push qword [rsp+rax]
 	next
 
-	WORD w6.2.2300, 'TUCK',fasm
+	WORD p_tuck, 'TUCK',fasm
 	;; ( x1 x2 -- x2 x1 x2 )
-	;; insert the top stack value into below second stack value.
+	;; copy the top stack value into below second stack value.
 	pop rax
 	pop rbx
 	push rax