diff --git a/src/zabapgit_objects.prog.abap b/src/zabapgit_objects.prog.abap
index 6442f23dc..b7c71c0ba 100644
--- a/src/zabapgit_objects.prog.abap
+++ b/src/zabapgit_objects.prog.abap
@@ -1444,7 +1444,8 @@ CLASS lcl_objects_program IMPLEMENTATION.
 
     INSERT TEXTPOOL iv_program
       FROM it_tpool
-      LANGUAGE lv_language.
+      LANGUAGE lv_language
+      STATE 'I'.
     IF sy-subrc <> 0.
       lcx_exception=>raise( 'error from INSERT TEXTPOOL' ).
     ENDIF.