release: 1.3.71

[lilypond.git] / lily / score-element.cc

diff --git a/lily/score-element.cc b/lily/score-element.cc
index 47ca5c9eea8f0659b090a9a8bbb520ad539630af..3c4af38059204a34c17cc494b904793e5e90f39a 100644 (file)
--- a/lily/score-element.cc
+++ b/lily/score-element.cc
@@ -97,11 +97,11 @@ Score_element::get_elt_property (const char *nm) const
 SCM
 Score_element::get_elt_property (SCM sym) const
 {
-  SCM s = scm_assq(sym, mutable_property_alist_);
+  SCM s = scm_sloppy_assq(sym, mutable_property_alist_);
   if (s != SCM_BOOL_F)
     return gh_cdr (s);
 
-  s = scm_assq (sym, immutable_property_alist_);
+  s = scm_sloppy_assq (sym, immutable_property_alist_);
   return (s == SCM_BOOL_F) ? SCM_UNDEFINED : gh_cdr (s); 
 }