1, 0, 1, (SCM str, SCM rest),
"A Scheme callable function to register a warning to be expected"
" and subsequently suppressed. If the warning is not encountered,"
- " a warning about the missing warning will be shown. The message"
+ " a warning about the missing warning will be shown. The message"
" should be translated with @code{(_ ...)} and changing parameters"
" given after the format string.")
{