autochange thinko.

diff --git a/scm/autochange.scm b/scm/autochange.scm
index 19921cf64184d76e611ed4b9fe553552678d4b7e..c445997199b8f53e6ac968cdac97b0098a3e594c 100644 (file)
--- a/scm/autochange.scm
+++ b/scm/autochange.scm
@@ -33,7 +33,7 @@
   (let* ((m (make-music 'AutoChangeMusic))
        (m1 (make-non-relative-music (context-spec-music music 'Voice "one")))
         (context-list (recording-group-emulate music
-                                               (ly:parser-lookup parser partCombineListener)))
+                                               (ly:parser-lookup parser 'partCombineListener)))
         (evs (car context-list))
          (rev (reverse! (cdar context-list)))
         (split (reverse! (generate-split-list