Index: oup/current/Helper/LevelDB.pas
===================================================================
--- oup/current/Helper/LevelDB.pas	(revision 144)
+++ oup/current/Helper/LevelDB.pas	(revision 145)
@@ -665,4 +665,9 @@
             Query.ExecSQL;
           end;
+          if ((i mod 100) = 0) and (FileID > 0) then
+          begin
+            Database.Commit(False);
+            Database.StartTransaction;
+          end;
         end;
       end;