X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FStorage.c;fp=rts%2Fsm%2FStorage.c;h=2172f9bdb01d4e43f7a0e65db32e3e531125419b;hb=33167a5bdcd6a487a8f212c6757c4f8901bc067c;hp=10a0a38d957272f1725c660676fb3e88707493f1;hpb=814946f35c725c22f67979642828dbefcaeaf8c3;p=ghc-hetmet.git

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index 10a0a38..2172f9b 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -353,6 +353,8 @@ allocNursery (bdescr *tail, nat blocks)
 
             if (i > 0) {
                 bd[i].u.back = &bd[i-1];
+            } else {
+                bd[i].u.back = NULL;
             }
 
             if (i+1 < n) {