X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fchord-entry.scm;fp=scm%2Fchord-entry.scm;h=76897afc47628ade0b8f5a06c2e39be96742f79d;hb=fd8e4f4ad347ef8f96c2e069be83f63f0f9da466;hp=23601a8deaba4e54a3014c0b2fcdc8dd9c324dd1;hpb=2fef7b7eb7ac5d7a2ed237bf22a6ec6fe5d946d9;p=lilypond.git

diff --git a/scm/chord-entry.scm b/scm/chord-entry.scm
index 23601a8dea..76897afc47 100644
--- a/scm/chord-entry.scm
+++ b/scm/chord-entry.scm
@@ -153,7 +153,7 @@ the bass specified.
     ;; if sus has been given neither 2 or 4, we add 4.
     (if (and (eq? lead-mod sus-modifier)
              (not explicit-2/4))
-        (set! complete-chord (cons (ly:make-pitch 0 4 0) complete-chord)))
+        (set! complete-chord (cons (ly:make-pitch 0 3 0) complete-chord)))
     (set! complete-chord (sort complete-chord ly:pitch<?))
     ;; If natural 11 + natural 3 is present, but not given explicitly,
     ;; we remove the 11.