From a0f97ee917fb2fbdb3ebbe8534429aea409d923b Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 9 Dec 2009 12:41:13 +0000
Subject: [PATCH] add a missing unlockTSO()

---
 rts/Schedule.c |    1 +
 1 file changed, 1 insertion(+)

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 7b57c0d..3f07d3c 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2201,6 +2201,7 @@ threadStackOverflow(Capability *cap, StgTSO *tso)
       //
 
       if (tso->flags & TSO_SQUEEZED) {
+          unlockTSO(tso);
           return tso;
       }
       // #3677: In a stack overflow situation, stack squeezing may
-- 
1.7.10.4