X-Git-Url: https://git.donarmstrong.com/?p=lilypond.git;a=blobdiff_plain;f=scm%2Fharp-pedals.scm;h=58576a31481e8493aa661143e4f206f184ef9b02;hp=9365f0a034f42294cc47dfe290c738a77fb0841f;hb=2c894ac3f60274f9fdd0bf2593cfb856c5c7b13f;hpb=c33c066fd6cc7f1d7f513e76c12e3688a4276059

diff --git a/scm/harp-pedals.scm b/scm/harp-pedals.scm
index 9365f0a034..58576a3148 100644
--- a/scm/harp-pedals.scm
+++ b/scm/harp-pedals.scm
@@ -68,7 +68,7 @@ spacing after the divider).
          (details (begin (harp-pedal-check pedal-list) harp-pedal-details))
          (dy (* size (assoc-get 'box-offset details 0.8))) ; offset of the box center from the line
          (line-width (* (ly:output-def-lookup layout 'line-thickness)
-                        (chain-assoc-get 'thickness props 0.5)))
+                        thickness))
          (box-width (* size (assoc-get 'box-width details 0.4)))
          (box-hheight (* size (/ (assoc-get 'box-height details 1.0) 2))) ; half the box-height, saves some divisions by 2
          (spacebeforedivider (* size (assoc-get 'space-before-divider details 0.8))) ; full space between boxes before the first divider