diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp index c6314d1d7b9..4888410f873 100644 --- a/src/Perl6/Actions.nqp +++ b/src/Perl6/Actions.nqp @@ -3201,8 +3201,7 @@ class Perl6::Actions is HLL::Actions does STDActions { if $ -> $semilist { my @dimensions := nqp::list_i(); for $semilist -> $dimension { - $dimension.ast.nosink(1); - my $elems := nqp::unbox_i($*W.compile_time_evaluate($/, $dimension.ast)); + my $elems := nqp::unbox_i($*W.compile_time_evaluate($/, $dimension.ast, :mark-wanted)); nqp::push_i(@dimensions, $elems); } nqp::bindattr($attr, $attr.WHAT, '$!dimensions', @dimensions);