Invalidate sort order as needed.

rakudo · Mar 13, 2013 · 4c470a1 · 4c470a1
1 parent f4b352b
commit 4c470a1
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.pm b/src/Perl6/Metamodel/BOOTSTRAP.pm
@@ -606,7 +606,10 @@ BEGIN {
                 $disp_list.push($dispatchee);
                 nqp::bindattr(pir::perl6_decontainerize__PP($dispatchee),
                     Routine, '$!dispatcher', $dc_self);
+                nqp::scwbdisable();
+                nqp::bindattr($dc_self, Routine, '$!dispatch_order', nqp::null());
                 nqp::bindattr($dc_self, Routine, '$!dispatcher_cache', nqp::null());
+                nqp::scwbenable();
                 $dc_self
             }
             else {