gistfile1.txt

diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
index 167b343..f898b75 100644
--- a/src/Perl6/Actions.pm
+++ b/src/Perl6/Actions.pm
@@ -2591,11 +2591,11 @@ method typename($/) {
 }

 method quotepair($/) {
-    my $h := pir::new__ps('Hash');
-    $h<key>   := $*key;
-    $h<value> := $*value;
-
-    make $h;
+    unless $*value ~~ PAST::Node {
+        $*value := PAST::Val.new( :value($*value) );
+    }
+    $*value.named(~$*key);
+    make $*value;
 }

 method quote:sym<apos>($/) { make $<quote_EXPR>.ast; }
@@ -2657,7 +2657,7 @@ method quote:sym<s>($/) {
         $regex, $closure
     );
     for $<quotepair> {
-        $past.push(PAST::Val.new(:named(~$_.ast<key>), :value($_.ast<value>)));
+        $past.push($_.ast);
     }
     make $past;
 }