--- oup/current/Helper/LevelDB.pas	2007/04/01 12:27:10	143
+++ oup/current/Helper/LevelDB.pas	2007/04/01 15:14:09	145
@@ -664,6 +664,11 @@ begin
               BoolToStr(RawLinks[i].LocSep) + ', 0);';
             Query.ExecSQL;
           end;
+          if ((i mod 100) = 0) and (FileID > 0) then
+          begin
+            Database.Commit(False);
+            Database.StartTransaction;
+          end;
         end;
       end;