diff --git a/src/passport.a b/src/passport.a
index c61565a..2281b8c 100755
--- a/src/passport.a
+++ b/src/passport.a
@@ -764,6 +764,10 @@ gIsProtDOS
          !byte FALSE      ; 0=true, 1=false
                           ; set after reading T00
 
+gOnAClearDayYouCanReadForever
+         !byte FALSE      ; 0=true, 1=false
+                          ; compile-time flag, no way to change at runtime
+
          !source "applyglobals.a"
          !source "universalrwts.a"
 LastMover
diff --git a/src/rwts.a b/src/rwts.a
index 30d541a..97b1943 100755
--- a/src/rwts.a
+++ b/src/rwts.a
@@ -19,9 +19,14 @@ ReadSector
          lda   gIsProtDOS
          beq   _protread
 
+setuprwts
          ldy   #<gRWTSParams
          lda   #>gRWTSParams
 callrwts jsr   $FF00      ; modified at runtime (see Inspect1)
+         bcc   endread
+         lda   gOnAClearDayYouCanReadForever
+         beq   setuprwts
+endread
          rts
 
 ;
@@ -54,6 +59,10 @@ go
          lda   #<gRWTSParams
          ldy   #>gRWTSParams
          jsr   $BA00      ; note non-standard entry point
+         bcc   endprotread
+         lda   gOnAClearDayYouCanReadForever
+         beq   go
+endprotread
          rts
 
 gRWTSParams               ; used to read each sector
diff --git a/src/strings/en.a b/src/strings/en.a
index fc5ecef..02a524c 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -179,7 +179,7 @@ StringTable
 ; can be set directly before calling PrintByID.
 ;
 header
-         !text "Passport by 4am               2017-01-11",00
+         !text "Passport by 4am               2017-01-14",00
 mainmenu
          !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
          !text "              "