Index: /oup/current/Helper/LevelDB.pas
===================================================================
--- /oup/current/Helper/LevelDB.pas	(revision 132)
+++ /oup/current/Helper/LevelDB.pas	(revision 133)
@@ -302,5 +302,6 @@
       DatFileStream := TMemoryStream.Create;
       Connection.LoadDatFile(FileID, TStream(DatFileStream));
-      DatFileStream.Seek(4, soFromBeginning);
+      DatFileStream.Seek(0, soFromBeginning);
+      DatFileStream.Write(FileID, 4);
       DatFileStream.Write(LevelID, 4);
 
@@ -392,4 +393,5 @@
   DatHeader.NamesSize := Stream_Names.Size;
   DatHeader.DataAddr  := Stream_Dat.Size;
+
   Stream_Body.Seek(0, soFromBeginning);
   Stream_Dat.CopyFrom(Stream_Body, Stream_Body.Size);