From 0052664c7c6cfdf3b9e513f3150dbf3ed49d9cdb Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Sat, 8 Aug 2020 10:30:01 +0200
Subject: [PATCH] optimize TADIR select (#3718)

---
 src/ui/zcl_abapgit_services_abapgit.clas.abap | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ui/zcl_abapgit_services_abapgit.clas.abap b/src/ui/zcl_abapgit_services_abapgit.clas.abap
index 090e182d1..2fc92fab3 100644
--- a/src/ui/zcl_abapgit_services_abapgit.clas.abap
+++ b/src/ui/zcl_abapgit_services_abapgit.clas.abap
@@ -226,7 +226,9 @@ CLASS zcl_abapgit_services_abapgit IMPLEMENTATION.
   METHOD is_installed.
 
     SELECT SINGLE devclass FROM tadir INTO rv_devclass
-      WHERE object = 'CLAS' AND obj_name = c_abapgit_class.
+      WHERE pgmid = 'R3TR'
+      AND object = 'CLAS'
+      AND obj_name = c_abapgit_class.
 
   ENDMETHOD.