X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fautochange.scm;fp=scm%2Fautochange.scm;h=14252e4b1db607a22c3df8fb1f6306a1e2b12742;hb=32a34dcef0c0041c6d62677487a380b5c8b85712;hp=54f5e96250ce90e376a9113856ac28f419e1a3b2;hpb=f41973ff763d5972a85995b6d40c864281ec6714;p=lilypond.git

diff --git a/scm/autochange.scm b/scm/autochange.scm
index 54f5e96250..14252e4b1d 100644
--- a/scm/autochange.scm
+++ b/scm/autochange.scm
@@ -11,7 +11,7 @@
 	       (evs (map car (cdar event-list)))
 	       (now (car now-tun))
 	       (notes (filter (lambda (x)
-				(equal? (ly:event-property  x 'class) 'note-event))
+				(ly:in-event-class? x 'note-event))
 			      evs))
 	       (pitch (if (pair? notes)
 			  (ly:event-property (car notes) 'pitch)