lilypond-1.3.91

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index 0477d3e645581a067ae1d7937adc60377eb898c4..a13eb4901b3803190a5208bbf39cef12e8130508 100644 (file)
--- a/lily/translator-group.cc
+++ b/lily/translator-group.cc
@@ -343,8 +343,15 @@ Translator_group::execute_single_pushpop_property (SCM prop, SCM eltprop, SCM va
        {
          SCM prev = get_property (prop);
 
-         prev = gh_cons (gh_cons (eltprop, val), prev);
-         set_property (prop, prev);
+         /*
+           we don't tack onto SCM_UNDEFINED, because it creates
+           errors down the line, if we do scm_assoc().
+          */
+         if (gh_pair_p (prev) || prev == SCM_EOL)
+           {
+                 prev = gh_cons (gh_cons (eltprop, val), prev);
+                 set_property (prop, prev);
+           }
        }
       else
        {