diff --git a/src/adstyle.a b/src/adstyle.a
index de65fa5..2872bd5 100644
--- a/src/adstyle.a
+++ b/src/adstyle.a
@@ -13,7 +13,6 @@
 ;        exits via ReadWithRWTS
 ;-------------------------------
 ADStyle
-         jsr   IncProgress
          jsr   PrintByID
          !byte s_diskrwts
 ;
diff --git a/src/apidefs.a b/src/apidefs.a
index bc2b9a6..59143a0 100644
--- a/src/apidefs.a
+++ b/src/apidefs.a
@@ -48,6 +48,7 @@ ID_FILE_ON_HARD_DISK = %10000000     ; BIT + BMI ->       target is a file on a
 
 ; Standard zero-page addresses
 TEXTTOP  =     $22
+HPOS     =     $24
 VPOS     =     $25
 
 ; Standard addresses
diff --git a/src/crackme.a b/src/crackme.a
index 787693d..be28724 100644
--- a/src/crackme.a
+++ b/src/crackme.a
@@ -1,4 +1,5 @@
 ReadWithRWTS
+         jsr   IncProgress
          lda   #$22
          jsr   ChangeTrackNW
          lda   #$0F
diff --git a/src/passport.a b/src/passport.a
index d13bd05..cb8a0cc 100755
--- a/src/passport.a
+++ b/src/passport.a
@@ -47,6 +47,7 @@ MainMenu
          txs
          jsr   Cleanup               ; RAM/HD files might be left open after Ctrl-Reset
          jsr   ClearScreen
+@refreshMainMenu
          jsr   PrintByID
          !byte s_header
          jsr   PrintByID
@@ -84,9 +85,13 @@ MainMenu
 +        cmp   #k_slot
          bne   +
          jsr   NextSlot
+         lda   #0
+         sta   HPOS
+         sta   VPOS
+         jsr   $FBC1
          lda   #TRUE
          sta   gChangedPrefs
-         beq   MainMenu              ; always branches
+         beq   @refreshMainMenu      ; always branches
 
 +        cmp   #k_verify
          bne   +
@@ -447,8 +452,8 @@ _byte_skip_hi:
          !source "id/davidson.a"
          !source "id/holle.a"
          !source "id/phoenix.a"
-         !source "id/555.a"
          !source "id/bootfailure.a"
+         !source "id/555.a"
          !source "print.a"
          !source "compare.a"
          !source "modify.a"
diff --git a/src/universalstyle.a b/src/universalstyle.a
index 638fd0d..fa45607 100644
--- a/src/universalstyle.a
+++ b/src/universalstyle.a
@@ -11,7 +11,6 @@
 ;        exits via ReadWithRWTS
 ;-------------------------------
 UseUniversal
-         jsr   IncProgress
 ;
 ; Copy built-in RWTS into place ($B800..$BFFF)
 ;