[perl #130601] [REGRESSION] “next” inside whenever no longer works (react { whenever foo() { next if $_ > 3 } })

[via RT]

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


Code:
sub foo { supply { emit($_) for 1..10; }; }; react { whenever foo() { next if 
$_ > 3; say $_; }; };

Result (2015.12):
1
2
3

Result (2016.08.1):
1
2
3
Access denied to keep/break this Promise; already vowed
  in any  at 
/tmp/whateverable/rakudo-moar/a07a2e173cfc24f1bec549d2d5b79ef978e46b58/share/perl6/runtime/CORE.setting.moarvm
 line 1


Result (HEAD):
1
2
3
===SORRY!===
next without loop construct



It was supposed to work, I guess.