compoundMeter et Time signature style with note in the denominator

[Ya Gloops]

Bonjour !
Suite à un post sur la liste anglaise, je m'aperçois que le snippet 642 que 
j'utilise ignore le "compoundMeter"...
J'ai essayé pas mal de chose mais je ne trouve pas la solution... 
L'idée c'est, dans l'exemple ci-dessous, d'avoir un compoundMeter égal à 1+1+3 
sur une noire et non pas le chiffre 4...
Si quelqu'un à une idée!!!
Musicalement Gilles

%% http://lsr.di.unimi.it/LSR/Item?id=642

#(use-modules (ice-9 pretty-print)) \void \displayScheme #(1- (integer-length 
4))
#(define-public (format-time-sig-note grob)
   (let* ((frac (ly:grob-property grob 'fraction))
          (num (if (pair? frac) (car frac) 4))
          (den (if (pair? frac) (cdr frac) 4))
          (m (markup #:override '(baseline-skip . 0.5)
                     #:center-column (#:number (number->string num)
                                               #:override '(style . default)
                                               #:note 
                                                 (ly:make-duration (1- 
(integer-length den)) 0 1)
                                                 DOWN))))
     (grob-interpret-markup grob m)))




\layout {
  \context {
    \Score
    \override TimeSignature.stencil = #format-time-sig-note   
  }
}


\score {   
  \relative {
    \time 2/4    \clef "bass"
    c16 d e f g a b c |
    \time 3/4  \clef "treble"
    c16 d e f g a b c d e f g |
    \time 4/4
    c,,16 d e f g a b c d e f g a b c d |
    \compoundMeter #'((1 1 3 4))
    c,,16 d e f g a b c d e f g a b c d e f g a |
  }
}