bug fix ALLOT

diff --git a/compile.asm b/compile.asm
index e7f3090b819e18501875807d5f81d2133d9690b9..f723487f10e21d2db2aade7576dec84e4f65d392 100644 (file)
--- 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 )