diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index e2fc5543bf0fb92f30924045b4e7de9c00d8c4a0..553df3dfdd082842fba88bd1127c06ac4f91acb8 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -157,7 +157,7 @@ stg_maskAsyncExceptionszh /* explicit stack */
 stg_maskUninterruptiblezh /* explicit stack */
 {
     /* Args: R1 :: IO a */
-    STK_CHK_P_LL (WDS(1)/* worst case */, stg_maskAsyncExceptionszh, R1);
+    STK_CHK_P_LL (WDS(1)/* worst case */, stg_maskUninterruptiblezh, R1);
 
     if ((TO_W_(StgTSO_flags(CurrentTSO)) & TSO_BLOCKEX) == 0) {
         /* avoid growing the stack unnecessarily */