[perl #77724] Hash.{} does not force .Str on a Match

[via RT]

# New Ticket Created by  Wenzel Peppmeyer 
# Please include the string:  [perl #77724]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=77724 >


my %h;
grammar Foo {
        rule TOP { <bar>+ };
        token bar {
                (.)
                { %h{$0} = 1 } # <-- Recursion limit hit here. $0 should 
be $0.Str but rakudo takes it as Match and fails horribly. :(
        }
};

Foo.parse('abc');
say %h.perl;

--

rakudo ae66fe: OUTPUT<<maximum recursion depth exceededNL  in 
'Any::postcircumfix:<{ }>' at line 1NL  in <anon> at line 1NL  in
                'Any::postcircumfix:<{ }>' at line 1NL  in <anon> at line 
1NL  in 'Any::postcircumfix:<{ }>' at line 1NL  in <anon> at line 1NL  in
                'Any::postcircumfix:<{ }>' at line 1NL  in