--- articulate.ly	2008-08-06 04:03:12.000000000 +0100
+++ articulate.trill.ly	2009-09-30 17:30:11.000000000 +0100
@@ -434,7 +434,9 @@
       ((TrillSpanEvent)
        (let ((direction (ly:music-property e 'span-direction)))
 	(set! ac:inTrill (eq? direction -1))
-	(loop factor newelements tail (cons 'trill actions))))
+        (if ac:inTrill
+         (loop factor newelements tail (cons 'trill actions))
+         (loop factor (cons e newelements) tail actions))))
 
       ((PhrasingSlurEvent)
        (let ((direction (ly:music-property e 'span-direction)))