X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=compile.asm;h=f723487f10e21d2db2aade7576dec84e4f65d392;hb=d16950460c966e302f79b7450f50cc21ddc93672;hp=e7f3090b819e18501875807d5f81d2133d9690b9;hpb=5e6256c98dcbb53af4f777e4752d6736b9524126;p=rrq%2Frrqforth.git

diff --git a/compile.asm b/compile.asm
index e7f3090..f723487 100644
--- a/compile.asm
+++ b/compile.asm
@@ -41,7 +41,7 @@ p_create_COPY:
 	WORD p_allot,'ALLOT'
 	;; ( n -- )
 	;; Allocate n bytes on the heap
-	dq p_here, p_put_plus, p_return
+	dq p_here, p_swap, p_put_plus, p_return
 	
 	WORD p_quote,"'"
 	;; ( "word" -- cfa )