X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fpart-combiner.scm;h=88c0b88fa6be7d94d61f6d8f40c946176c449309;hb=ee70161485a2d2f347db3e29724a943c741ef524;hp=21cfa99326ac9f1083da409d166333bc27ce5058;hpb=08560a1b8076630c4fc6cb9b902614d8b74fd6fc;p=lilypond.git

diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm
index 21cfa99326..88c0b88fa6 100644
--- a/scm/part-combiner.scm
+++ b/scm/part-combiner.scm
@@ -149,7 +149,7 @@ Voice-state objects
 
     (define (active<? a b)
       (cond ((symbol<? (car a) (car b)) #t)
-	    ((symbol<? (car b) (car b)) #f)
+	    ((symbol<? (car b) (car a)) #f)
 	    (else (< (cdr a) (cdr b)))))
 
     (define (analyse-span-event active ev)