From f19f66181992b1cbd52c3cb81d29f18db49ca886 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sun, 17 Feb 2013 17:35:33 -0500
Subject: [PATCH] Now properly closes the file base datafiles

---
 mystic/bbs_cfg_filebase.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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;