diff --git a/ghc/runtime/storage/SMstacks.lc b/ghc/runtime/storage/SMstacks.lc
index 1ac07b975c5bab6f97ac3c86a319ccdd235cb68d..cd18c6e2f4a1ab61eee58f4541a5762e565800f5 100644
--- a/ghc/runtime/storage/SMstacks.lc
+++ b/ghc/runtime/storage/SMstacks.lc
@@ -35,7 +35,7 @@ initStacks(smInfo *sm)
         STKO_SIZE(MainStkO) = RTSflags.GcFlags.stksSize + STKO_VHS;
         STKO_SpB(MainStkO) = STKO_SuB(MainStkO) = STKO_BSTK_BOT(MainStkO) + BREL(1);
         STKO_SpA(MainStkO) = STKO_SuA(MainStkO) = STKO_ASTK_BOT(MainStkO) + AREL(1);
-        STKO_LINK(MainStkO) = Prelude_Z91Z93_closure;
+        STKO_LINK(MainStkO) = PrelBase_Z91Z93_closure;
     	STKO_RETURN(MainStkO) = NULL;
 
 	ASSERT(sanityChk_StkO(MainStkO));