From 4665d67e17f12f179f01b679bbdec11d0bb33d8c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 2 Oct 1997 19:45:12 +0000
Subject: [PATCH] [project @ 1997-10-02 19:45:12 by sof] Cleanup

---
 ghc/runtime/storage/SMmark.lhc |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/runtime/storage/SMmark.lhc b/ghc/runtime/storage/SMmark.lhc
index c2a703d..026e809 100644
--- a/ghc/runtime/storage/SMmark.lhc
+++ b/ghc/runtime/storage/SMmark.lhc
@@ -1200,7 +1200,7 @@ STGFUN(_PRIn_TSO)
     default:
     	/* update the register we just did; save the old mstack */
 	mstack = r->rR[oldpos - 2].p;
-	r->rR[oldpos - 2] = Mark;
+	r->rR[oldpos - 2].p = Mark;
     	break;
     }
 
-- 
1.7.10.4