X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Fscript.cc;h=5fb7c6767dd810d2e0b37452b5fc7f0d8698be88;hb=fd7e615444cf58b38283a59b56d3457c07778397;hp=cc5db9d7482c1952807dd8cdf10ae2ff7eb4f5c3;hpb=d26be70e8f3942df6f13e25a7f79321b9b98d1a8;p=lilypond.git

diff --git a/lily/script.cc b/lily/script.cc
index cc5db9d748..5fb7c6767d 100644
--- 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-" +