diff --git a/src/patchers/pfs.pascal.a b/src/patchers/pfs.pascal.a
index 2abbae7..a10f022 100644
--- a/src/patchers/pfs.pascal.a
+++ b/src/patchers/pfs.pascal.a
@@ -67,7 +67,16 @@
          !byte $00
          !byte $C3,$AB
          !byte $05,$A9
-         bcs   @exit      ; passport-test-suite/PFS Graph 1983-01-12.woz [C=0] here
+         bcc   @foundWriteCheck      ; passport-test-suite/PFS Graph 1983-01-12.woz [C=0] here
+
+         ldy   #$09
+         jsr   SearchTrack
+         !byte $9E,$06
+         !byte $9E,$22
+         !byte $00
+         !byte $C3,$A1
+         !byte $5D,$CD
+         bcs   @exit                 ; passport-test-suite/PFS Write 1984-09-27.woz [C=0] here
 
 @foundWriteCheck
          jsr   PrintByID
diff --git a/src/strings/en.a b/src/strings/en.a
index b5093b7..7adf354 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -369,7 +369,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," 2022-06-26",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-06-27",$00
 .bar9
          !text "_________",$00
 .bar18