diff --git a/src/objects/zcl_abapgit_objects_program.clas.abap b/src/objects/zcl_abapgit_objects_program.clas.abap
index 69c1d4b83..8e34e684a 100644
--- a/src/objects/zcl_abapgit_objects_program.clas.abap
+++ b/src/objects/zcl_abapgit_objects_program.clas.abap
@@ -582,6 +582,8 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
     IF sy-subrc = 2.
       zcx_abapgit_exception=>raise( 'error from screen_list' ).
     ENDIF.
+    
+    SORT lt_d020s BY dnum ASCENDING.
 
 * loop dynpros and skip generated selection screens
     LOOP AT lt_d020s ASSIGNING <ls_d020s>