Index: scm/translation-functions.scm |
diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm |
index b559a771376a677900f96bf4f627f474c46adebb..a2ee8b9ddb26766184e5f639f34581ac9231ace5 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)) |