--- oup/current/FileClasses/_EmptyFile.pas	2007/06/12 20:31:54	215
+++ oup/current/FileClasses/_EmptyFile.pas	2007/07/13 23:15:47	236
@@ -19,7 +19,7 @@ uses
 procedure TFile_Empty.InitDataFields;
 begin
   inherited;
-  FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
+  FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
 end;