--- oup/current/FileClasses/TXAN.pas	2007/06/12 20:31:54	215
+++ oup/current/FileClasses/TXAN.pas	2007/06/29 12:38:24	233
@@ -19,6 +19,7 @@ uses
 procedure TFile_TXAN.InitDataFields;
 var
   tempi: Integer;
+  arrargs: TArrayArgs;
 begin
   inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
@@ -43,14 +44,16 @@ begin
     tempi := 2;
     AddField(TUnused, $1A, 'Unused', '', @tempi);
 
-    tempi := 2;
-    with AddField(TArray, $1C, 'AnimTextures array', '', @tempi) do
+    arrargs.CounterSize := 2;
+    arrargs.BlockLength := 4;
+    with AddField(TArray, $1C, 'AnimTextures array', '', @arrargs) do
     begin
       AddField(TLinkByID, $00, 'Texture', '', nil);
     end;
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-