From f4605cb834abed2ffd2e09a6437fb1e3cc8a7296 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 1 Jun 1999 09:56:22 +0000
Subject: [PATCH] [project @ 1999-06-01 09:56:22 by simonmar] "oops"

---
 ghc/compiler/simplStg/SRT.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/simplStg/SRT.lhs b/ghc/compiler/simplStg/SRT.lhs
index 356d84b..3cf92e5 100644
--- a/ghc/compiler/simplStg/SRT.lhs
+++ b/ghc/compiler/simplStg/SRT.lhs
@@ -302,7 +302,7 @@ srtLet rho cont off bind body let_constr calc_cont
    let new_cont = calc_cont bind_g cont in
 
     -- now find the SRTs in the body
-   srtExpr rho cont body_off body  =: \(body, body_g, body_srt, let_off) ->
+   srtExpr rho new_cont body_off body  =: \(body, body_g, body_srt, let_off) ->
 
    let
 	-- union all the global references together
-- 
1.7.10.4