[NTG-context] French punctuation: improvement needed

Hi all, For my french document, I use: \def\activateSomeCharacters{% \defineactivecharacter ! {\,\string!}% \defineactivecharacter ? {\,\string?}% \defineactivecharacter : {\,\string:}% \defineactivecharacter ; {\,\string;}} \activateSomeCharacters \appendtoks\activateSomeCharacters\to\everystarttext in my environment, but there is a problem: If the input is "test:", the result is correct but if the input is "test :" (with a space between test and :) the output space between test and : is too large (I assume a normal space + \,) Is this possible to get this def smarter ? Cheers, Renaud