--- oup/current/FileClasses/TXMP.pas	2007/06/04 22:07:29	209
+++ oup/current/FileClasses/TXMP.pas	2007/06/12 17:00:48	213
@@ -26,7 +26,8 @@ var
   temps: String;
   templist: TStringList;
 begin
-  FDataFields := TBlock.Create(Self, 0, 'Base', '', nil);
+  inherited;
+  FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
   templist := TStringList.Create;
   with FDataFields do
   begin
@@ -110,10 +111,10 @@ procedure TFile_TXMP.InitDatLinks;
 begin
   SetLength(FDatLinks, 2);
   FDatLinks[0].SrcOffset := $94;
-  FDatLinks[0].DestID := GetDatLinkValue(FFile, $94);
+  FDatLinks[0].DestID := GetDatLinkValue(FFileStream, $94);
   FDatLinks[0].PosDestExts := '*';
   FDatLinks[1].SrcOffset := $98;
-  FDatLinks[1].DestID := GetDatLinkValue(FFile, $98);
+  FDatLinks[1].DestID := GetDatLinkValue(FFileStream, $98);
   FDatLinks[1].PosDestExts := 'TXMP';
 end;