From e32aef4475d55d0f49857f48e715fd4714dd1d48 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 30 Oct 1997 22:29:59 +0000
Subject: [PATCH] [project @ 1997-10-30 22:29:59 by sof] ErrorIO_innards: push
 realWorld# on B stack (cf. startStgWorld)

---
 ghc/runtime/main/StgStartup.lhc |    7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ghc/runtime/main/StgStartup.lhc b/ghc/runtime/main/StgStartup.lhc
index 61d963b..30b29a8 100644
--- a/ghc/runtime/main/StgStartup.lhc
+++ b/ghc/runtime/main/StgStartup.lhc
@@ -355,10 +355,13 @@ STGFUN(ErrorIO_innards)
 
     /* Finish stack setup as if for a top-level task and enter the error node */
 
+    /* Put an IoWorld token on the B stack */
+    SpB -= BREL(1);
+    *SpB = (P_) realWorldZh_closure;
+/*
     SpA = SuA - AREL(1);
-
     *SpA = (P_) realWorldZh_closure;
-
+*/
     STKO_LINK(StkOReg) = PrelBase_Z91Z93_closure;
     STKO_RETURN(StkOReg) = NULL;
 
-- 
1.7.10.4