named_args.diff

diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
index bfac49c..6cad665 100644
--- a/src/Perl6/Actions.nqp
+++ b/src/Perl6/Actions.nqp
@@ -1856,6 +1856,8 @@ Compilation unit '$file' contained the following violations:
 
     sub make_pair($key_str, $value) {
         my $key := $*W.add_string_constant($key_str);
+        $key.named('key');
+        $value.named('value');
         QAST::Op.new(
             :op('callmethod'), :name('new'), :returns($*W.find_symbol(['Pair'])),
             QAST::Var.new( :name('Pair'), :scope('lexical') ),