diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas
index 5fe53c1..13466c2 100644
--- a/mystic/bbs_filebase.pas
+++ b/mystic/bbs_filebase.pas
@@ -447,8 +447,8 @@ Begin
       Arc^.FindFirst(SR);
 
       While SR.Name <> '' Do Begin
-        If (strUpper(SR.Name) = 'FILE_ID.DIZ') Then Begin
-          DizName := SR.Name;
+        If (Pos('FILE_ID.DIZ', strUpper(SR.Name)) > 0 Then Begin
+          DizName := strStripLow(SR.Name);
           Break;
         End;