X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FSTM.c;h=f98d201b07696a37d8e72e1ca27c206634db1804;hp=be615384345787e3cffec0290119dedd170c564a;hb=5d52d9b64c21dcf77849866584744722f8121389;hpb=7408b39235bccdcde48df2a73337ff976fbc09b7

diff --git a/rts/STM.c b/rts/STM.c
index be61538..f98d201 100644
--- a/rts/STM.c
+++ b/rts/STM.c
@@ -377,7 +377,7 @@ static void unpark_tso(Capability *cap, StgTSO *tso) {
     lockTSO(tso);
     if (tso -> why_blocked == BlockedOnSTM) {
 	TRACE("unpark_tso on tso=%p", tso);
-	unblockOne(cap,tso);
+        tryWakeupThread(cap,tso);
     } else {
 	TRACE("spurious unpark_tso on tso=%p", tso);
     }