First round of getting us more honest with routine rw-ness.

src/core/Array.pm

@@ -7,7 +7,7 @@ class Array {
         nqp::p6list($args, self.WHAT, Bool::True);
     }
 
-    method at_pos($pos is copy) {
+    method at_pos($pos is copy) is rw {
         $pos = $pos.Int;
         self.exists($pos)
           ?? pir::find_method__PPs(List, 'at_pos')(self, $pos)
@@ -33,7 +33,7 @@ class Array {
         pir::find_method__PPs(List, 'REIFY')(self, $parcel)
     }
 
-    method STORE_AT_POS(\$pos, Mu $v is copy) {
+    method STORE_AT_POS(\$pos, Mu $v is copy) is rw {
         pir::find_method__PPs(List, 'STORE_AT_POS')(self, $pos, $v);
     }
 

src/core/Attribute.pm

@@ -9,19 +9,18 @@ my class Attribute {
                 my $dcpkg := pir::perl6_decontainerize__PP($package);
                 my $meth  := self.rw
                     ??
-                    method (Mu $self:) {
+                    method (Mu $self:) is rw {
                         nqp::getattr(
                             pir::perl6_decontainerize__PP($self),
                             $dcpkg,
                             nqp::unbox_s($name))
                     }
                     !!
                     method (Mu $self:) {
-                        pir::perl6_decontainerize__PP(
-                            nqp::getattr(
-                                pir::perl6_decontainerize__PP($self),
-                                $dcpkg,
-                                nqp::unbox_s($name)))
+                        nqp::getattr(
+                            pir::perl6_decontainerize__PP($self),
+                            $dcpkg,
+                            nqp::unbox_s($name))
                     };
                 $package.HOW.add_method($package, $meth_name, $meth);
             }

src/core/EnumMap.pm

@@ -41,11 +41,10 @@ my class EnumMap does Associative {
             !! Any
     }
 
-    method STORE_AT_KEY(Str \$key, Mu \$value) {
+    method STORE_AT_KEY(Str \$key, Mu \$value) is rw {
         pir::defined($!storage) ||
             nqp::bindattr(self, EnumMap, '$!storage', pir::new__Ps('Hash'));
-        pir::set__2QsP($!storage, nqp::unbox_s($key), $value);
-        $value # XXX PAST bug, it seems; the 2 in the above sig isn't followed
+        pir::set__1QsP($!storage, nqp::unbox_s($key), $value)
     }
 
     method ARGLIST_FLATTENABLE() { $!storage }

src/core/Hash.pm

@@ -1,7 +1,7 @@
 my class Hash {
     # Has attributes and parent EnumMap declared in BOOTSTRAP
 
-    method at_key($key is copy) {
+    method at_key($key is copy) is rw {
         $key = $key.Str;
         self.exists($key)
           ?? pir::find_method__PPs(EnumMap, 'at_key')(self, $key)
@@ -15,7 +15,7 @@ my class Hash {
           !! '(' ~ self.pairs.map({.perl}).join(', ') ~ ').hash'
     }
 
-    method STORE_AT_KEY(Str \$key, Mu $x is copy) {
+    method STORE_AT_KEY(Str \$key, Mu $x is copy) is rw {
         pir::find_method__PPs(EnumMap, 'STORE_AT_KEY')(self, $key, $x);
     }
 

src/core/Routine.pm

@@ -1,4 +1,5 @@
 my class Routine {
     method of() { self.signature.returns }
     method returns() { self.signature.returns }
+    method rw() { $!rw }
 }

src/core/operators.pm

@@ -3,7 +3,7 @@
 ##   generic string operators are in Stringy.pm
 ##   Int/Rat/Num operators are in {Int|Rat|Num}.pm
 
-sub infix:<=>(Mu \$a, Mu \$b) {
+sub infix:<=>(Mu \$a, Mu \$b) is rw {
     pir::perl6_container_store__0PP($a, $b)
 }
 

src/core/stubs.pm

@@ -12,7 +12,7 @@ my class KeyHash is Iterable does Associative { }
 my class Capture { }
 my class Seq is List does Positional { }
 
-sub DYNAMIC(\$name) { 
+sub DYNAMIC(\$name) is rw { 
     my Mu $x := pir::find_dynamic_lex__Ps(nqp::unbox_s($name));
     if nqp::isnull($x) {
         my $pkgname = nqp::p6box_s(pir::replace__Ssiis(nqp::unbox_s($name), 1, 1, ''));