From: fred <fred>
Date: Tue, 26 Mar 2002 21:48:11 +0000 (+0000)
Subject: lilypond-1.1.36
X-Git-Tag: release/1.5.59~2529
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8abb5fd8b689a90ab4dc3181cae004703f46ca7c;p=lilypond.git

lilypond-1.1.36
---

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;