[allocateInGen(): increase alloc_blocks (#2747)
Simon Marlow <marlowsd@gmail.com>**20081106113714] {
hunk ./rts/sm/Storage.c 621
+	alloc_blocks += bd->blocks;
hunk ./rts/sm/Storage.c 748
-            // already bumpted nursery->n_blocks above.
+            // already bumpted nursery->n_blocks above.  We'll GC
+            // pretty quickly now anyway, because MAYBE_GC() will
+            // notice that CurrentNursery->link is NULL.
}