diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 41c72441e3..4cf29ddf9c 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -589,6 +589,10 @@ implementation
 
         LNames.Clear;
         LNames.Add('');  { insert an empty string, which has index 1 }
+        FSegments.Clear;
+        FSegments.Add('',nil);
+        FGroups.Clear;
+        FGroups.Add('',nil);
 
         for i:=0 to Data.ObjSectionList.Count-1 do
           with TOmfObjSection(Data.ObjSectionList[I]) do