- return Stem::get_direction (stem);
- else if (scm_is_pair (me->get_property ("note-heads")))
- return (Direction)sign (head_positions_interval (me).center ());
+ return get_grob_direction (stem);
+ else
+ {
+ extract_grob_set (me, "note-heads", heads);
+ if (heads.size ())
+ return (Direction)sign (head_positions_interval (me).center ());
+ }