From 20fcaaba537c370bc7ccefaf5e21453ac09664b6 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 1 Apr 2010 10:58:40 +0000
Subject: [PATCH] fix bug in migrateThread()

---
 rts/Threads.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rts/Threads.c b/rts/Threads.c
index e8a835b..f07b36a 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -291,7 +291,7 @@ migrateThread (Capability *from, StgTSO *tso, Capability *to)
     traceEventMigrateThread (from, tso, to->no);
     // ThreadMigrating tells the target cap that it needs to be added to
     // the run queue when it receives the MSG_TRY_WAKEUP.
-    tso->what_next = ThreadMigrating;
+    tso->why_blocked = ThreadMigrating;
     tso->cap = to;
     tryWakeupThread(from, tso);
 }
-- 
1.7.10.4