From 4c470a1e262fffbd9b0f58ca18a8b7c62bae21ca Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Wed, 13 Mar 2013 14:45:40 +0100
Subject: [PATCH] Invalidate sort order as needed.

---
 src/Perl6/Metamodel/BOOTSTRAP.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Perl6/Metamodel/BOOTSTRAP.pm b/src/Perl6/Metamodel/BOOTSTRAP.pm
index 32d7985c4ec..522e15ce4ff 100644
--- 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 {