update.diff

diff --git a/src/Perl6/Metamodel/MROBasedMethodDispatch.pm b/src/Perl6/Metamodel/MROBasedMethodDispatch.pm
index 50d021a..5e41cbb 100644
--- a/src/Perl6/Metamodel/MROBasedMethodDispatch.pm
+++ b/src/Perl6/Metamodel/MROBasedMethodDispatch.pm
@@ -27,17 +27,11 @@ role Perl6::Metamodel::MROBasedMethodDispatch {
             @mro_reversed.unshift($_);
         }
         for @mro_reversed {
-            my %methods := $_.HOW.method_table($_);
-            for %methods {
-                %cache{$_.key} := $_.value;
-            }
+            %cache.update($_.HOW.method_table($_));
         }
         
         # Also add submethods.
-        my %submethods := $obj.HOW.submethod_table($obj);
-        for %submethods {
-            %cache{$_.key} := $_.value;
-        }
+        %cache.update($obj.HOW.submethod_table($obj));
         
         pir::publish_method_cache($obj, %cache)
     }