diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 7b98e6157f..0fc9e42697 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -121,6 +121,7 @@ interface
 
       TOmfObjInput = class(TObjInput)
         constructor create;override;
+        class function CanReadObjData(AReader:TObjectreader):boolean;override;
       end;
 
       { TMZExeOutput }
@@ -890,6 +891,20 @@ implementation
         cobjdata:=TOmfObjData;
       end;
 
+    class function TOmfObjInput.CanReadObjData(AReader: TObjectreader): boolean;
+      var
+        b: Byte;
+      begin
+        result:=false;
+        if AReader.Read(b,sizeof(b)) then
+          begin
+            if b=RT_THEADR then
+            { TODO: check additional fields }
+              result:=true;
+          end;
+        AReader.Seek(0);
+      end;
+
 {****************************************************************************
                                TMZExeOutput
 ****************************************************************************}