diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 3420fca5c..c0236c4e5 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2002-08-23  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+	* gc-segment.c (scm_i_get_new_heap_segment): Oops. We want segment
+	length *at* least SCM_MIN_HEAP_SEG_SIZE, not at most.  
+
 2002-08-22  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* gc.h, gc.c: make scm_cells_allocated unsigned again. Thanks to
diff --git a/libguile/gc-segment.c b/libguile/gc-segment.c
index e459291d3..53c02cd3a 100644
--- a/libguile/gc-segment.c
+++ b/libguile/gc-segment.c
@@ -512,7 +512,7 @@ scm_i_get_new_heap_segment (scm_t_cell_type_statistics *freelist, policy_on_erro
     freelist->collected = LONG_MAX;
   }
 
-  if (len > SCM_MIN_HEAP_SEG_SIZE)
+  if (len < SCM_MIN_HEAP_SEG_SIZE)
     len = SCM_MIN_HEAP_SEG_SIZE;
 
   {