[BUG] Perl6 ucfirst/lcfirst uc first, but lc other chars

[Илья]

[EMAIL PROTECTED]:~/parrot/languages/perl6$ ./perl6
> say ucfirst('hello Perl6 on Parrot!')
Hello perl6 on parrot!

>r24793 | cspencer | 2008-01-13 03:36:20 +1000 (Вск, 13 Янв 2008) | 2 lines
>Added lcfirst/ucfirst methods to Perl6Str class.

Excuse me if it isn`t valid place or way to say that.

Thanks for you work!