fix random error when switching from 16 to 13 sectors

src/id/bootfailure.a

@@ -309,6 +309,11 @@ VerifyInfocom18
          eor   #$AA
 +        rts
 
+seekread13
+         dec   gCommand
+         jsr   $BD00       ; seek
+         inc   gCommand
+
 read13
          lda   $C0E9
          lda   #$1C        ; retry count

src/strings/en.a

@@ -365,7 +365,7 @@ StringTableHigh           ; must be kept in sync with constants in enid.a
 .passport
          !text "Passport ",$00
 .header
-         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-09-04",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-09-05",$00
 .bar9
          !text "_________",$00
 .bar18

src/universalstyle.a

@@ -22,9 +22,11 @@ UseUniversal
 ;
          lda   gIs13Sector
          bne   @not13Sector
-         lda   #<read13
+         lda   #0
+         sta   $47E                  ; restore track number replaced by DOS
+         lda   #<seekread13
          sta   jCallRWTS+1
-         lda   #>read13
+         lda   #>seekread13
          sta   jCallRWTS+2
          bne   @doneUnivPatching     ; always branches
 @not13Sector