--- articulate.ly	2008-08-06 04:03:12.000000000 +0100
+++ articulate.appoggiatura.ly	2009-09-30 19:00:37.000000000 +0100
@@ -600,10 +600,14 @@
   (ly:music? ly:music?)
   (let* ((maindur (ly:music-length main))
 	 (grace-orig-len (ly:music-length grace))
+         (main-orig-len (ly:music-length main))
 	 (numerator (ly:moment-main-numerator maindur))
 	 (factor (if (eq? (remainder numerator 3) 0)
 		  (ly:make-moment 1 3) (ly:make-moment 1 2))))
-   (ly:music-compress grace factor)
+
+   (ly:music-compress grace
+    (ly:moment-mul factor
+     (ly:moment-div main-orig-len grace-orig-len)))
    (ly:music-compress main (ly:moment-sub (ly:make-moment 1 1) factor))
    
     (set! (ly:music-property grace 'elements)