     ESP 4 [+] ctx-reg MOV
     "reset_context" jit-call
 
-    jit-pop-quot-and-param
+    jit-save-quot-and-param
     ctx-reg jit-switch-context
     jit-push-param
+
+    EAX EDX [] MOV
     jit-jump-quot ;
 
 [


[ jit-set-context ] \ (set-context) define-sub-primitive

: jit-start-context ( -- )
    ! Create the new context in return-reg
    jit-load-vm

    ESP [] vm-reg MOV
    "new_context" jit-call

    jit-save-quot-and-param

    ! Make the new context active
    EAX jit-switch-context

    jit-push-param

    ! Windows-specific setup
    jit-install-seh
