hairpin to short

[Stefan Thomas]

Dear lilypond users,
in the below quoted exanple the hairpin is too short. What can I do to change the length of it?
Thanks for help,
Stefan

%%%%%%% begin

\version "2.11.42"

re = \change Staff = rechts
li = \change Staff = links
kleiner = {\set fontSize = #-3 \override DynamicText #'font-size = #+3 } 

normal = {\unset fontSize \revert DynamicText #'font-size } 


rechts = \relative { \compressMusic #'(8 . 10) { \time 1/4 \kleiner \re <g a b>32[c ]\li \normal aes8~ aes8  } }
links= { \compressMusic #'(8 . 10) {  s64\mp\> s32. s8\p  s8   | } }

\score { \new PianoStaff 
    << \new Staff= "rechts" { \rechts }
       \new Staff= "links" { \links} >>
       \layout {
       ragged-right= ##t }
}
%%%%%% END