X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FRtsStartup.c;h=f0b2170bad391220331e6f26fe537b1d800da25d;hp=2c1c5549f154010e0e6e085fd0c5f4cee85cfd51;hb=a916885ce70142ae5c05cc9e28230c308821e3d6;hpb=90d1deddda8123c46c4d029439591075ff310fb4

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index 2c1c554..f0b2170 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -171,9 +171,9 @@ hs_init(int *argc, char **argv[])
     getStablePtr((StgPtr)heapOverflow_closure);
     getStablePtr((StgPtr)runFinalizerBatch_closure);
     getStablePtr((StgPtr)unpackCString_closure);
-    getStablePtr((StgPtr)blockedOnDeadMVar_closure);
+    getStablePtr((StgPtr)blockedIndefinitelyOnMVar_closure);
     getStablePtr((StgPtr)nonTermination_closure);
-    getStablePtr((StgPtr)blockedIndefinitely_closure);
+    getStablePtr((StgPtr)blockedIndefinitelyOnSTM_closure);
 
     /* initialise the shared Typeable store */
     initGlobalStore();