grace notes in TimeSig

[Stefan Thomas]

Dear lilypondusers,
I have a problem with TimeSig in connection with grace-notes.
I don't understand why the grace notes why the grace-notes in the below quoted example appear before the time signature.
It must have to do with the TimeSig function. How can I fix the problem?
Here is the example:
%%%%%%%%%% begin %%%%%%%%%%%%%%

dreiviertel = {
    \time 3/4 
    #(override-auto-beam-setting '(end * * 3 4) 1 4 'Score)
    #(override-auto-beam-setting '(end * * 3 4) 2 4 'Score)
    #(override-auto-beam-setting '(end * * 3 4) 3 4 'Score)
        } 
fourtoms = {  \override Staff.StaffSymbol #'line-positions = #'(-3 -1 1 3) }
\layout{

  \context {                      
    \type "Engraver_group"
   
    \consists "Text_spanner_engraver"
    \consists "Text_engraver"
    \consists "Dynamic_engraver"
    \consists "Axis_group_engraver"
    \name "TimeSig"
    
    
     
  }
  \context {
    \Score \accepts TimeSig}
    

          


 \context { \RemoveEmptyStaffContext }
  
        }

global = { \time 2/4 s2 \dreiviertel s2. }

\score { 
<<
\new TimeSig  { \override Score.TimeSignature #'style = #'( ) \global }
\new Staff
\relative { \fourtoms \clef percussion  b8 b8 d4 |
\grace {g,32\f\> [ b d\!] } g,2.\p | } 
>>
}
%%%%%%%%%% END %%%%%%%%%%%%%%%%%%%%%5