X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstem-info.cc;h=a0914f000b75248dbd272d183100195917d0fbef;hb=f1baf9749eb3315b6f58622e084fc34295bccea7;hp=cd9be5dd1d192f8f7c47c5c6a82f680ba2fd608e;hpb=9e90e53ba3a141e1e4f4a32ccaa7b36b0daecf1a;p=lilypond.git

diff --git a/lily/stem-info.cc b/lily/stem-info.cc
index cd9be5dd1d..a0914f000b 100644
--- a/lily/stem-info.cc
+++ b/lily/stem-info.cc
@@ -27,7 +27,9 @@ Stem_info::Stem_info (Stem*s)
   stem_l_ = s;
   x_ = stem_l_->hpos_f ();
   dir_ = stem_l_->dir_;
-  beam_dir_ = stem_l_->beam_dir_;
+  SCM bd = stem_l_->remove_elt_property (beam_dir_scm_sym);
+  beam_dir_ = gh_scm2int (SCM_CDR(bd));
+  
   mult_i_ = stem_l_->mult_i_;
   interstaff_f_ = 0;