lilypond-1.3.119

diff --git a/lily/score.cc b/lily/score.cc
index 9e774cd6c55cac5dd561d4ef1d9de4d0a60bb7b6..417c3b3a44bd6cbee5c8ddb937b3158aafbfad0b 100644 (file)
--- a/lily/score.cc
+++ b/lily/score.cc
@@ -39,16 +39,23 @@ Score::Score (Score const &s)
   : Input (s)
 {
   music_ = SCM_EOL;
-
+  header_p_ = 0;
   smobify_self ();
   
   Music * m =unsmob_music (s.music_);
   music_ =  m?m->clone()->self_scm () : SCM_EOL;
+  scm_unprotect_object (music_);
   
   for (int i=0; i < s.def_p_arr_.size (); i++)
     def_p_arr_.push(s.def_p_arr_[i]->clone());
   errorlevel_i_ = s.errorlevel_i_;
-  header_p_ =  (s.header_p_) ? new Scheme_hash_table (*s.header_p_): 0;
+  if (s.header_p_)
+       {
+         header_p_ =  (s.header_p_) ? new Scheme_hash_table (*s.header_p_): 0;
+
+         scm_unprotect_object(header_p_->self_scm ());
+       }
+ 
 }
 
 Score::~Score()