[perl #125783] callsame does not work more than once (callsame; callsame; callsame;)

[via RT]

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


Code:
sub foo { say 'X' };
&foo.wrap:{ callsame; callsame; callsame };
foo;

Result:
X

I expected this:
X
X
X


Another interesting code snippet:
sub foo { say 'X' };
&foo.wrap:{ callsame; callsame; nextsame; say 'y' };
foo;

Which, surprisingly, prints this:
X
y


IRC log: http://irclog.perlgeek.de/perl6/2015-08-10#i_11036336 and
http://irclog.perlgeek.de/perl6/2015-08-11#i_11036346