     5 6 callstack-length-offset LWZ
     5 5 tag-bits get SRAWI
     ! Compute new stack pointer -- 'dst' for memcpy
-    3 3 5 SUBF
+    3 5 3 SUBF
     ! Install new stack pointer
     1 3 MR
     ! Call memcpy; arguments are now in the correct registers


: jit-save-context ( -- )
    jit-load-context
    1 2 context-callstack-top-offset STW
    ds-reg ctx-reg context-datastack-offset STW
    rs-reg ctx-reg context-retainstack-offset STW ;


    BLRL
    1 1 0 LWZ
    ! Return with new callstack
    0 1 lr-save LWZ
    0 MTLR
    BLR
] \ set-callstack define-sub-primitive
