(lilypond_version_re_str): handle

[lilypond.git] / scm / define-markup-commands.scm

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index ed8cc41c09649f34d864cccd48ebda9c8a25eb70..c334a6514b0cc8badd6391967aa954621dd69a79 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -609,8 +609,8 @@ any sort of property supported by @internalsref{font-interface} and
   "Draw a box round @var{arg}.  Looks at @code{thickness} and
 @code{box-padding} to determine line thickness and padding around the
 markup."
-  (let ((th (chain-assoc-get props 'thickness  0.1))
-        (pad (chain-assoc-get props 'box-padding 0.2))
+  (let ((th (chain-assoc-get 'thickness props  0.1))
+        (pad (chain-assoc-get 'box-padding props 0.2))
         (m (interpret-markup paper props arg)))
     (box-stencil m th pad)))