X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpaper-def.cc;h=0fcdd18fc7dae0d25dd8026b896b3f4f1bdb76dd;hb=a78c70be8951804126d19eb74b344ae1858023e5;hp=10e56f0883cdd261840c920e37bacb903294790b;hpb=8e0022031a160d4d516b9fe53ac5c5adc7d5ae96;p=lilypond.git

diff --git a/lily/paper-def.cc b/lily/paper-def.cc
index 10e56f0883..0fcdd18fc7 100644
--- a/lily/paper-def.cc
+++ b/lily/paper-def.cc
@@ -140,7 +140,7 @@ Paper_def::find_font (SCM fn, Real m)
   SCM val = Scaled_font_metric::make_scaled_font_metric (f, m);
   scaled_fonts_ = scm_acons (key, val, scaled_fonts_);
 
-  scm_unprotect_object (val);
+  scm_gc_unprotect_object (val);
 
   return dynamic_cast<Scaled_font_metric*> (unsmob_metrics (val));
 }