diff --git a/src/passport.a b/src/passport.a
index 7893843..7e2321b 100755
--- a/src/passport.a
+++ b/src/passport.a
@@ -768,6 +768,7 @@ _applyToAll
          !source "patchers/memory.config.a"     ; gIsProDOS only
          !source "patchers/origin.a"            ; gIsProDOS only
          !source "patchers/rwtsswapmecc.a"      ; gMECCFastloadType only
+         !source "patchers/rwtsswappenguin.a"   ; T01 only
          !source "patchers/protecteddos.a"      ; gIsProtDOS only
          !source "patchers/fbff.a"
          !source "patchers/fbffencrypted.a"     ; gIsProDOS only
diff --git a/src/patchers/rwtsswappenguin.a b/src/patchers/rwtsswappenguin.a
new file mode 100644
index 0000000..81d9d84
--- /dev/null
+++ b/src/patchers/rwtsswappenguin.a
@@ -0,0 +1,32 @@
+;-------------------------------
+; #RWTSSWAPPENGUIN
+; routine in DOS to change epilogues when swapping between program disk
+; and user disk for saved games
+;
+; Tested on
+; Arcade Boot Camp
+; Transylvania 48K (1982 release)
+; Transylvania 128K (1982 release)
+; Xyphus
+;-------------------------------
+!zone {
+         bit   gMode      ; nothing to do here in verify-only mode
+         bpl   .exit
+         lda   gTrack     ; and track 1
+         cmp   #$01
+         bne   .exit
+         lda   #$04
+         ldx   #$52
+         ldy   #$0B
+         jsr   compare    ; and T01,S04,$52 ==
+         !byte $A9,$DA
+         !byte $8D,$91,$B9
+         !byte $8D,$35,$B9
+         !byte $8D,$9E,$B8
+         bcs   .exit
+         inx
+         ldy   #$01
+         jsr   modify     ; then set T01,S04,$53 =
+         !byte $DE
+.exit
+}
diff --git a/src/strings/en.a b/src/strings/en.a
index f85f9e9..42e94d5 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -144,7 +144,7 @@ StringTable
 ; can be set directly before calling PrintByID.
 ;
 .header
-         !text "Passport by 4am               2018-09-22",$00
+         !text "Passport by 4am               2018-09-23",$00
 .mainmenu
          !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
          !text "              "