--- oup/current/Tools/TxmpReplace.pas	2007/05/26 18:26:48	194
+++ oup/current/Tools/TxmpReplace.pas	2007/05/26 18:31:36	195
@@ -164,9 +164,10 @@ begin
       ConManager.Connection[ConnectionID].UpdateRawFile(fileid, $9C, mem);
     end;
 
-    datbyte := $00;
     if check_fading.Checked then
-      datbyte := datbyte or $01;
+      oldfading := oldfading or $01
+    else
+      oldfading := oldfading and (not Byte($01));
     ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @datbyte);
     datbyte := $10;
 //    if check_transparency.Checked then