Fix bug in curved barre location for fret-diagrams

diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index 6537ece10c07d192dede7892980e65a902f7e934..d86aeaf22024e94f4c4bdc1d52efb40addae7d92 100644 (file)
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -366,7 +366,7 @@ Line thickness is given by @var{th}, fret & string spacing by
                  (make-bezier-sandwich-list
                   (* size barre-start-string-coordinate)
                   (* size barre-end-string-coordinate)
-                  (* size (+ 1 (- top-fret fret) barre-fret-coordinate))
+                  (* size (+ 1 (- top-fret  barre-fret-coordinate)))
                   (* size bezier-height)
                   (* size bezier-thick)
                   orientation)