[perl #127520] subclasses of class augmented with role don't match the role

[via RT]

# New Ticket Created by  Lloyd Fournier 
# Please include the string:  [perl #127520]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=127520 >


use MONKEY-TYPING;
role R {};
augment class Str does R {};

say Str ~~ R;  # True
say IntStr ~~ Str; #True
say IntStr ~~ R; #False