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));
 }