diff --git a/src/constants.a b/src/constants.a
index 1c7a8675c..33ed21086 100644
--- a/src/constants.a
+++ b/src/constants.a
@@ -11,7 +11,7 @@
 ; ...unused...
 ; E000..E3FF - HGR font data
 ; ...unused...
-; E73A..FFEB - main program code
+; E730..FFEB - main program code
 ; FFEC..FFF9 - API functions and global constants available for main program
 ;              code, prelaunchers, transition effects, &c.
 ;              (LoadFileDirect, Wait/UnwaitForVBL, MockingboardStuff, MachineStatus)
diff --git a/src/ui.attract.hgr.a b/src/ui.attract.hgr.a
index c9267164d..7d6acd7d3 100644
--- a/src/ui.attract.hgr.a
+++ b/src/ui.attract.hgr.a
@@ -128,7 +128,13 @@ HGRTitleCallback
 @indexRecordPtr
          !word $FDFD                 ; SMC
 
+         lda   $5FFD
+         stx   $5FFD                 ; ensure that we won't find it again if next
+                                     ; file is really compressed
+         cmp   #$4C                  ; Check if screen hole now contains a JMP
+         beq   @noUnpack             ; if so, file was not packed, so skip unpack
          jsr   UnpackHGRTitle
+@noUnpack
          jmp   ExecuteTransitionAt6000AndWait
 
 ;------------------------------------------------------------------------------