diff --git a/src/zabapgit_object_pinf.prog.abap b/src/zabapgit_object_pinf.prog.abap
index a992e0590..887be21e3 100644
--- a/src/zabapgit_object_pinf.prog.abap
+++ b/src/zabapgit_object_pinf.prog.abap
@@ -67,13 +67,20 @@ CLASS lcl_object_pinf IMPLEMENTATION.
 
   METHOD lif_object~exists.
 
-    DATA: lv_intf_name TYPE intf-intf_name.
+    DATA: lv_pack_name TYPE intf-pack_name,
+          lv_main_pack TYPE tdevc-mainpack.
 
 
-    SELECT SINGLE intf_name FROM intf INTO lv_intf_name
+    SELECT SINGLE pack_name FROM intf INTO lv_pack_name
       WHERE intf_name = ms_item-obj_name.
     rv_bool = boolc( sy-subrc = 0 ).
 
+    IF rv_bool = abap_true.
+      SELECT SINGLE mainpack FROM tdevc INTO lv_main_pack
+        WHERE devclass = lv_pack_name.
+      rv_bool = boolc( sy-subrc = 0 ).
+    ENDIF.
+
   ENDMETHOD.                    "lif_object~exists
 
   METHOD lif_object~serialize.