From 8abb5fd8b689a90ab4dc3181cae004703f46ca7c Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 21:48:11 +0000
Subject: [PATCH] lilypond-1.1.36

---
 lily/stem-info.cc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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;
 
-- 
2.39.5