X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fbeam.cc;h=f983040bcabc51aaab2962563eac22135f43c1a0;hb=7d870a2890deabfa746d2c17038a00fa9afb8897;hp=d31e570186dca277a527ea687262d1abe45dced1;hpb=fd3857da3d3f6a8ec80184d48a6ca0bd48d23091;p=lilypond.git

diff --git a/lily/beam.cc b/lily/beam.cc
index d31e570186..f983040bca 100644
--- a/lily/beam.cc
+++ b/lily/beam.cc
@@ -622,10 +622,13 @@ Beam::print (SCM grob)
       string str;
       SCM properties = Font_interface::text_font_alist_chain (me);
 
+      properties = scm_cons(scm_acons (ly_symbol2scm ("font-size"), scm_from_int (-3), SCM_EOL),
+                            properties);
+      
       Direction stem_dir = stems.size () ? to_dir (stems[0]->get_property ("direction")) : UP;
 
       Stencil score = *unsmob_stencil (Text_interface::interpret_markup
-				    (me->layout ()->self_scm (), properties, annotation));
+                                       (me->layout ()->self_scm (), properties, annotation));
 
       if (!score.is_empty ())
 	{