diff --git a/src/zabapgit_object_prog.prog.abap b/src/zabapgit_object_prog.prog.abap
index 3766d1c5f..0c4377d08 100644
--- a/src/zabapgit_object_prog.prog.abap
+++ b/src/zabapgit_object_prog.prog.abap
@@ -84,19 +84,20 @@ CLASS lcl_object_prog IMPLEMENTATION.
 
     DATA: lv_program LIKE sy-repid.
 
-
     lv_program = ms_item-obj_name.
 
     CALL FUNCTION 'RS_DELETE_PROGRAM'
       EXPORTING
-        program            = lv_program
-        suppress_popup     = abap_true
+        program                    = lv_program
+        suppress_popup             = abap_true
+        force_delete_used_includes = abap_true
       EXCEPTIONS
-        enqueue_lock       = 1
-        object_not_found   = 2
-        permission_failure = 3
-        reject_deletion    = 4
-        OTHERS             = 5.
+        enqueue_lock               = 1
+        object_not_found           = 2
+        permission_failure         = 3
+        reject_deletion            = 4
+        OTHERS                     = 5.
+
     IF sy-subrc <> 0.
       zcx_abapgit_exception=>raise( |Error from RS_DELETE_PROGRAM: { sy-subrc }| ).
     ENDIF.