diff --git a/mystic/bbs_cfg_filebase.pas b/mystic/bbs_cfg_filebase.pas
index cd6fe37..82614ba 100644
--- a/mystic/bbs_cfg_filebase.pas
+++ b/mystic/bbs_cfg_filebase.pas
@@ -148,7 +148,7 @@ Begin
   List.AllowTag := True;
   List.SearchY  := 21;
 
-  If FileSize(FBaseFile) = 0 Then InsertRecord;
+  //If FileSize(FBaseFile) = 0 Then InsertRecord;
 
   Box.Open (15, 5, 65, 21);
 
@@ -214,6 +214,8 @@ Begin
     End;
   Until False;
 
+  Close (FBaseFile);
+
   Box.Close;
   List.Free;
   Box.Free;