Now does a partial filename match on FILE_ID.DIZ using internal listing.

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;