diff --git a/res/dsk/bejeweled PRODOS (san inc pack).po b/res/dsk/bejeweled PRODOS (san inc pack).po
index dd4ac59c5..65fe2f538 100644
Binary files a/res/dsk/bejeweled PRODOS (san inc pack).po and b/res/dsk/bejeweled PRODOS (san inc pack).po differ
diff --git a/src/prelaunch/bejeweled.a b/src/prelaunch/bejeweled.a
index fee53a18b..09714d802 100644
--- a/src/prelaunch/bejeweled.a
+++ b/src/prelaunch/bejeweled.a
@@ -9,28 +9,23 @@
 
          +ENABLE_ACCEL
          lda   #<callback
-         sta   $4491
+         sta   $4494
          lda   #>callback
-         sta   $4492
+         sta   $4495
          jmp   $800       ; decompress
 
 helper
-         lda   $862D
+         lda   $863B
          cmp   #$CB       ; write file
          bne   nohelp
-         lda   $8A4D      ; write address
+         lda   $8A50      ; write address (low)
+         cmp   #$F3       ; erasing save
+         beq   nohelp
          cmp   #$F5       ; writing "valid"
          beq   nocall     ; ignore it
-         ldx   $8A4F
-         dex
-         bne   write
-         lda   #<(callback + 2)
-         sta   $8A4D
-         lda   #>(callback + 2)
-         sta   $8A4E      ; point to known zero
-
-write
-         dec   $8A4D      ; write address
+         cmp   #$F6       ; writing options
+         beq   nohelp
+         dec   $8A50      ; write address
 
 nohelp
          jmp   $D670      ; ProDOS_enter
diff --git a/src/prodos.impl.lc2.a b/src/prodos.impl.lc2.a
index ae5ef1d7a..6c3f5f1b7 100644
--- a/src/prodos.impl.lc2.a
+++ b/src/prodos.impl.lc2.a
@@ -297,7 +297,7 @@ ProDOS_enter
          iny
          lda   blefthi
          sta   (ipacket), y
-         bcs   @restore_zp ;always
+         bcc   @restore_zp ;always
 
 @imp_close
          lda   @handles+1