release: 1.3.13

[lilypond.git] / lily / script.cc

diff --git a/lily/script.cc b/lily/script.cc
index cc5db9d7482c1952807dd8cdf10ae2ff7eb4f5c3..5fb7c6767dd810d2e0b37452b5fc7f0d8698be88 100644 (file)
--- a/lily/script.cc
+++ b/lily/script.cc
@@ -21,7 +21,7 @@ Script::get_molecule(Direction d) const
   SCM s = get_elt_property ("molecule");
   assert (s != SCM_UNDEFINED);
 
-  SCM key = SCM_CAR (s);
+  SCM key = gh_car  (s);
   if (key == ly_symbol2scm ("feta"))
     {
       return lookup_l ()->afm_find ("scripts-" +