diff --git a/src/prelaunch/serpentine.a b/src/prelaunch/serpentine.a
index 200968e58..16ef002f0 100644
--- a/src/prelaunch/serpentine.a
+++ b/src/prelaunch/serpentine.a
@@ -15,10 +15,10 @@
          sta   $F1,x
          dex
          bpl   -
-         lda   #$F1       ; call patch instead of $222
-         sta   $8BE3
+         lda   #$F1       ; call patch instead of $233
+         sta   $8C96
          lda   #$00
-         sta   $8BE4
+         sta   $8C97
          jmp   $43F5      ; decompress and show title
 patch
          jsr   $0100      ; decompress
diff --git a/src/prodos.impl.lc2.a b/src/prodos.impl.lc2.a
index cd02e338d..02c8c9605 100644
--- a/src/prodos.impl.lc2.a
+++ b/src/prodos.impl.lc2.a
@@ -131,10 +131,10 @@ ProDOS_enter
          lda   ldrlo2+1
          sta   (ipacket), y
          ldy   #$13
-         lda   (bloklo), y
+         lda   (scratchlo), y
          tax
          iny
-         lda   (bloklo), y
+         lda   (scratchlo), y
          ldy   #9
          sta   (ipacket), y
          txa