patch::: 1.3.82.hwn1

[lilypond.git] / lily / part-combine-music.cc

diff --git a/lily/part-combine-music.cc b/lily/part-combine-music.cc
index 27064244b7628996c83685b30524affc92cf8581..d9e98329b3be75126a6068f0c7d1a424eaf255bb 100644 (file)
--- a/lily/part-combine-music.cc
+++ b/lily/part-combine-music.cc
@@ -15,8 +15,10 @@ Part_combine_music::Part_combine_music (String what, Music * f, Music * s)
   what_str_ = what;
   set_mus_property ("one", f->self_scm ());
   set_mus_property ("two", s->self_scm ());  
-}
 
+  scm_unprotect_object (f->self_scm());
+  scm_unprotect_object (s->self_scm());  
+}
 
 void
 Part_combine_music::transpose (Musical_pitch p)