X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpart-combine-music.cc;fp=lily%2Fpart-combine-music.cc;h=d9e98329b3be75126a6068f0c7d1a424eaf255bb;hb=efaf6bd61c89103205039c82fbcfc4d9ab1bb55e;hp=27064244b7628996c83685b30524affc92cf8581;hpb=f1346920f64c571a1475d3ded295b9637560c6bc;p=lilypond.git

diff --git a/lily/part-combine-music.cc b/lily/part-combine-music.cc
index 27064244b7..d9e98329b3 100644
--- 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)