diff --git a/src/zabapgit_object_tobj.prog.abap b/src/zabapgit_object_tobj.prog.abap
index 408c2dd6e..63e83801b 100644
--- a/src/zabapgit_object_tobj.prog.abap
+++ b/src/zabapgit_object_tobj.prog.abap
@@ -27,7 +27,18 @@ CLASS lcl_object_tobj IMPLEMENTATION.
   ENDMETHOD.  "lif_object~has_changed_since
 
   METHOD lif_object~changed_by.
-    rv_user = c_user_unknown. " todo
+
+    DATA: lv_type_pos TYPE i.
+
+    lv_type_pos = strlen( ms_item-obj_name ) - 1.
+
+    SELECT SINGLE luser FROM objh INTO rv_user
+      WHERE objectname = ms_item-obj_name(lv_type_pos)
+      AND objecttype = ms_item-obj_name+lv_type_pos.    "#EC CI_GENBUFF
+    IF sy-subrc <> 0.
+      rv_user = c_user_unknown.
+    ENDIF.
+
   ENDMETHOD.
 
   METHOD lif_object~get_metadata.