--- oup/current/Helper/LevelDB.pas	2007/04/01 20:36:23	154
+++ oup/current/Helper/LevelDB.pas	2007/04/03 02:59:20	167
@@ -24,7 +24,8 @@ var
 implementation
 {$R *.dfm}
 uses ABSMain, ABSDecUtil, Main,
-    ConnectionManager, TypeDefs, DataAccess, OniImgClass, Data, RawList;
+    ConnectionManager, TypeDefs, DataAccess, OniImgClass, Data, RawList, 
+  Access_OniArchive;
 
 var
   Converting:  Boolean = False;
@@ -631,6 +632,8 @@ begin
   DoStep('Writing .dat-fileslist');
   Application.ProcessMessages;
 
+  TAccess_OniArchive(Connection).UnloadWhenUnused := False;
+
   FileTime := Time;
   Database.StartTransaction;
   for FileID := 0 to Connection.GetFileCount - 1 do
@@ -728,6 +731,7 @@ begin
   btn_abortok.Default := True;
 
   converting := False;
+  TAccess_OniArchive(Connection).UnloadWhenUnused := True;
 
   Query.Close;
   Query.Free;