X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=inline;f=scm%2Ftranslation-functions.scm;h=a2ee8b9ddb26766184e5f639f34581ac9231ace5;hb=17f11c2f5ab963bfb07b7652b4860dc4dda5540a;hp=b559a771376a677900f96bf4f627f474c46adebb;hpb=2eb9e6926d25c9ec7b85cee83bbebf3231a55ebf;p=lilypond.git

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index b559a77137..a2ee8b9ddb 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -341,7 +341,7 @@ chords.  Returns a placement-list."
           tuning)
 
   (define (calc-fret pitch string tuning)
-    (- (ly:pitch-semitones pitch) (list-ref tuning (1- string))))
+    (- (ly:pitch-semitones pitch) (ly:pitch-semitones (list-ref tuning (1- string)))))
 
   (define (note-pitch a)
     (ly:event-property a 'pitch))