Index: /oup/current/Tools/TxmpReplace.dfm
===================================================================
--- /oup/current/Tools/TxmpReplace.dfm	(revision 254)
+++ /oup/current/Tools/TxmpReplace.dfm	(revision 255)
@@ -8,5 +8,5 @@
   inherited panel_basecontent: TPanel
     Height = 413
-    ExplicitHeight = 548
+    ExplicitHeight = 413
     inherited splitter_content: TSplitter
       Height = 413
@@ -16,14 +16,14 @@
     inherited panel_files: TPanel
       Height = 413
-      ExplicitHeight = 548
+      ExplicitHeight = 413
       inherited FilePages: TPageControl
         Height = 412
         Constraints.MinHeight = 250
-        ExplicitHeight = 547
+        ExplicitHeight = 412
         inherited tab_files: TTabSheet
-          ExplicitHeight = 467
+          ExplicitHeight = 384
           inherited filelist: TListBox
             Height = 259
-            ExplicitHeight = 342
+            ExplicitHeight = 259
           end
         end
@@ -32,8 +32,8 @@
           ExplicitTop = 24
           ExplicitWidth = 190
-          ExplicitHeight = 519
+          ExplicitHeight = 384
           inherited filelist_meta: TVirtualStringTree
             Height = 384
-            ExplicitHeight = 519
+            ExplicitHeight = 384
           end
         end
@@ -42,5 +42,5 @@
     inherited panel_content: TPanel
       Height = 413
-      ExplicitHeight = 548
+      ExplicitHeight = 413
       object Splitter1: TSplitter
         Left = 0
@@ -65,5 +65,4 @@
         Enabled = False
         TabOrder = 0
-        ExplicitTop = 469
         object btn_replace: TButton
           Left = 4
@@ -120,5 +119,4 @@
           BevelOuter = bvNone
           TabOrder = 0
-          ExplicitTop = 188
           object btn_save: TButton
             Left = 2
@@ -141,6 +139,4 @@
         Enabled = False
         TabOrder = 2
-        ExplicitLeft = -2
-        ExplicitTop = 206
         object image_bmppreview: TImage
           AlignWithMargins = True
Index: /oup/current/Tools/TxmpReplace.pas
===================================================================
--- /oup/current/Tools/TxmpReplace.pas	(revision 254)
+++ /oup/current/Tools/TxmpReplace.pas	(revision 255)
@@ -177,5 +177,5 @@
     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)
@@ -190,5 +190,5 @@
     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