From 75d2756bd22f010ba0d3a5a24ba0c2d82bfdf08d Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Mon, 8 Dec 2008 01:43:23 -0500
Subject: [PATCH] fixed serious GC bug that's exhibited when guardians have
 protected objects that survive 256 collections.

---
 scheme/last-revision | 2 +-
 src/ikarus-collect.c | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/last-revision b/scheme/last-revision
index 5b353db..1d25bf7 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1701
+1702
diff --git a/src/ikarus-collect.c b/src/ikarus-collect.c
index 33c29d8..4a1728e 100644
--- a/src/ikarus-collect.c
+++ b/src/ikarus-collect.c
@@ -587,7 +587,7 @@ is_live(ikptr x, gc_t* gc){
 
 static inline int 
 next_gen(int i){
-  return ((i == generation_count) ? generation_count : (i+1));
+  return ((i == (generation_count-1)) ? i : (i+1));
 }