X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=621aef2ab71a0178cc13124ca2e0fb11f2bc2c6a;hb=d8334d807812e40f67770ffc37608c0ce66f96b2;hp=c115d2bde696d009938f204991fea5ef165d4449;hpb=f30d527344db528618f64a25250a3be557d9f287;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index c115d2b..621aef2 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2220,6 +2220,7 @@ raiseExceptionHelper (StgRegTable *reg, StgTSO *tso, StgClosure *exception)
             return CATCH_STM_FRAME;
 	    
         case UNDERFLOW_FRAME:
+            tso->stackobj->sp = p;
             threadStackUnderflow(cap,tso);
             p = tso->stackobj->sp;
             continue;