X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FStorage.c;fp=rts%2Fsm%2FStorage.c;h=34cdab16ca6309ac9f6bfe016e7bfb670ec24b26;hb=45881ab5b0b2572993372b9428d3e9f86fc42254;hp=c2a191170d8d42cabac9095b53101a2d15a67d0a;hpb=c279f61e3762b137c035ca0bae960415a8916f03;p=ghc-hetmet.git

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index c2a1911..34cdab1 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -290,7 +290,9 @@ newCAF(StgRegTable *reg, StgClosure* caf)
   {
     // Put this CAF on the mutable list for the old generation.
     ((StgIndStatic *)caf)->saved_info = NULL;
-    recordMutableCap(caf, regTableToCapability(reg), oldest_gen->no);
+    if (oldest_gen->no != 0) {
+        recordMutableCap(caf, regTableToCapability(reg), oldest_gen->no);
+    }
   }
 }