From aeedef12ae5550eb8ac2dd185a0b01f338803727 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 22 Feb 2003 02:39:14 +0000
Subject: [PATCH] *** empty log message ***

---
 input/regression/chord-name-entry.ly |  2 ++
 scm/chord-entry.scm                  | 11 +++++++----
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/input/regression/chord-name-entry.ly b/input/regression/chord-name-entry.ly
index 3fa92bf71e..d6daa3d85e 100644
--- a/input/regression/chord-name-entry.ly
+++ b/input/regression/chord-name-entry.ly
@@ -17,6 +17,8 @@ c:dim_":dim"
 c:dim7_":dim7"
 c:sus4_":sus4"
 c:sus2_":sus2"
+c:6_":6"
+c:m6_":m6"
 c:3-_":3-"
 c:3+_":3+"
 c:5+.3-_":5+.3-"
diff --git a/scm/chord-entry.scm b/scm/chord-entry.scm
index e9f5f2bbae..c4ea088b48 100644
--- a/scm/chord-entry.scm
+++ b/scm/chord-entry.scm
@@ -169,11 +169,14 @@ Side effect: put original pitch in INVERSION.
     (set! complete-chord (map (lambda (x) (ly:pitch-transpose x root))
 			      (sort complete-chord ly:pitch<?)))
 
-    ;; If natural 11 is present, but not given explicitly, we remove
-    ;; it.
+    ;; If natural 11 + natural 3 is present, but not given explicitly,
+    ;; we remove the 11.
     (if (and (not explicit-11)
 	     (get-step 11 complete-chord)
-	     (= 0 (ly:pitch-alteration  (get-step 11 complete-chord))))
+	     (get-step 3 complete-chord)
+	     (= 0 (ly:pitch-alteration (get-step 11 complete-chord)))
+	     (= 0 (ly:pitch-alteration (get-step 3 complete-chord)))
+	     )
 	     
 	(set! complete-chord (remove-step 11  complete-chord))
 	)
@@ -282,7 +285,7 @@ UPPER-STEP separately."
     ((null? base) '())
     ((> (ly:pitch-steps upper-step) (ly:pitch-steps (car base)))
      (cons (car base) (stack-thirds upper-step  (cdr base))))
-    ((= (ly:pitch-steps upper-step) (ly:pitch-steps (car base)))
+    ((<= (ly:pitch-steps upper-step) (ly:pitch-steps (car base)))
      (list upper-step))
     (else '())
     ))
-- 
2.39.2