diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 53d746543f..b36e7f2591 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -280,7 +280,6 @@ interface
         function writeCom:boolean;
         property ExeUnifiedLogicalSegments: TFPHashObjectList read FExeUnifiedLogicalSegments;
         property ExeUnifiedLogicalGroups: TFPHashObjectList read FExeUnifiedLogicalGroups;
-        property MZFlatContentSection: TMZExeSection read GetMZFlatContentSection;
         property Header: TMZExeHeader read FHeader;
       protected
         procedure Load_Symbol(const aname:string);override;
@@ -291,6 +290,7 @@ interface
       public
         constructor create;override;
         destructor destroy;override;
+        property MZFlatContentSection: TMZExeSection read GetMZFlatContentSection;
       end;
 
       TOmfAssembler = class(tinternalassembler)
diff --git a/compiler/systems/t_msdos.pas b/compiler/systems/t_msdos.pas
index 2e627e2659..2eb12a2c0e 100644
--- a/compiler/systems/t_msdos.pas
+++ b/compiler/systems/t_msdos.pas
@@ -407,7 +407,7 @@ var
   i: Integer;
 begin
   Result:=0;
-  objseclist:=aExeOutput.FindExeSection('.MZ_flat_content').ObjSectionList;
+  objseclist:=TMZExeOutput(aExeOutput).MZFlatContentSection.ObjSectionList;
   for i:=0 to objseclist.Count-1 do
     begin
       objsec:=TOmfObjSection(objseclist[i]);