X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Ff_packmap.pas;h=0c361c52e5ba19bac69a6d399ed6e039851f0716;hp=f9bb418620c837651fb936c85030e7d0d13ddd53;hb=8c3e397c5920444fc9c1a5c44747708acf1e0467;hpb=7e9341416173d0324e03b6e2f808dcc66ca0f771

diff --git a/src/editor/f_packmap.pas b/src/editor/f_packmap.pas
index f9bb418..0c361c5 100644
--- a/src/editor/f_packmap.pas
+++ b/src/editor/f_packmap.pas
@@ -129,8 +129,14 @@ begin
 
 // Не перезаписывать WAD, а дополнить:
   if not cbAdd.Checked then
+  begin
     if FileExists(eWAD.Text) then
-      ASSERT(RenameFile(eWAD.Text, eWAD.Text + '.bak0'));
+    begin
+      if FileExists(eWAD.Text + '.bak0') then
+        ASSERT(DeleteFile(eWAD.Text + '.bak0'));
+      ASSERT(RenameFile(eWAD.Text, eWAD.Text + '.bak0'))
+    end
+  end;
 
 // Читаем карту из памяти:
   mr := TMapReader_1.Create();