--- oup/current/FileClasses/_EmptyFile.pas	2007/06/12 16:42:53	212
+++ oup/current/FileClasses/_EmptyFile.pas	2007/06/12 17:35:56	214
@@ -9,8 +9,9 @@ type
   TFile_Empty = class(TFile)
     protected
       procedure InitDatLinks; override;
-      procedure InitDataFields; override;
       procedure InitRawList; override;
+    public
+      procedure InitDataFields; override;
   end;
 
 implementation
@@ -20,6 +21,7 @@ uses
 
 procedure TFile_Empty.InitDataFields;
 begin
+  inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
 end;