X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgrob-property.cc;h=db16f2a54af248e4818f6cb7d9188ed3d28a2972;hb=3772b2c7d022122eb9c791bd4a32178e76b97014;hp=153627274d03e274abe1cdf0dc8ce00808e51a84;hpb=0e13fe23a0698ae81b9e618b15841b8a88919ed7;p=lilypond.git

diff --git a/lily/grob-property.cc b/lily/grob-property.cc
index 153627274d..db16f2a54a 100644
--- a/lily/grob-property.cc
+++ b/lily/grob-property.cc
@@ -36,8 +36,8 @@ print_property_callback_stack ()
 }
 #endif
 
-static SCM modification_callback = SCM_EOL;
-static SCM cache_callback = SCM_EOL;
+static Protected_scm modification_callback = SCM_EOL;
+static Protected_scm cache_callback = SCM_EOL;
 
 /*
 FIXME: this should use ly:set-option interface instead.
@@ -251,7 +251,7 @@ Grob::try_callback_on_alist (SCM *alist, SCM sym, SCM proc)
       value = get_property_data (sym);
       assert (value == SCM_EOL || value == marker);
       if (value == marker)
-        *alist = scm_assq_remove_x (*alist, marker);
+        *alist = scm_assq_remove_x (*alist, sym);
     }
   else
     {