diff --git a/src/glue.prorwts2.a b/src/glue.prorwts2.a
index 34ff6df99..17c872315 100644
--- a/src/glue.prorwts2.a
+++ b/src/glue.prorwts2.a
@@ -273,6 +273,8 @@ ProDOS_exit
         sta    $c082, x
 ProDOS_savedX
         ldx    #$d1
+ProDOS_savedY
+        ldy    #$d1
         rts
 ProDOS_fatal ;only for debugging, will be removed
         pha
@@ -351,6 +353,7 @@ ProDOS_enter
     !set PASS2=1
   }
     stx    ProDOS_savedX+1
+    sty    ProDOS_savedY+1
     pha
     jsr    @swap_zp
     pla
@@ -372,8 +375,6 @@ ProDOS_enter
     php
     txa
     pha
-    tya
-    pha
 @request
     lda    #$d1
     cmp    #$c4
@@ -584,8 +585,6 @@ ProDOS_enter
 @restore_zp
     jsr    @swap_zp
     pla
-    tay
-    pla
     lsr
     lsr
     lsr