- SCM s = me->get_property ("duration-log");
- return scm_is_number (s) ? min (int (scm_to_int (s)), 2) : 0;
+ Grob *me = unsmob_grob (smob);
+ Font_metric *fm = Font_interface::get_default_font (me);
+ string key;
+ internal_print (me, &key);
+
+ return ly_offset2scm (get_stem_attachment (fm, key));