--- oup/current/Tools/TxmpReplace.pas	2007/06/28 09:24:08	232
+++ oup/current/Tools/TxmpReplace.pas	2007/12/18 20:48:24	255
@@ -176,7 +176,7 @@ begin
     newsize := mem.Size;
     mem.Seek(0, soFromBeginning);
 
-    if (newsize > old_size) and (ConManager.Connection[ConnectionID].Backend = DB_ONI) then
+    if (newsize > old_size) and (ConManager.Connection[ConnectionID].Backend in [DB_ONI, DB_ONISPLIT]) then
       new_rawaddr := ConManager.Connection[ConnectionID].AppendRawFile(
         not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN), mem)
     else
@@ -189,7 +189,7 @@ begin
       oldfading := oldfading or $01
     else
       oldfading := oldfading and (not Byte($01));
-    ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @datbyte);
+    ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @oldfading);
     datbyte := $10;
 //    if check_transparency.Checked then
 //      datbyte := datbyte or $04;