diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 482263449..e7f6572a3 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-18  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* gc-card.c ("sweep_card"): don't count scm_tc_free_cell for
+	free_count.
+
 2005-11-29  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* regex-posix.c (s_scm_regexp_exec): list the offending pattern
diff --git a/libguile/gc-card.c b/libguile/gc-card.c
index b97989916..9fad48416 100644
--- a/libguile/gc-card.c
+++ b/libguile/gc-card.c
@@ -215,6 +215,7 @@ scm_i_sweep_card (scm_t_cell *  p, SCM *free_list, scm_t_heap_segment*seg)
 	  switch SCM_TYP16 (scmptr)
 	    {
 	    case scm_tc_free_cell:
+	      free_count --;
 	      break;
 	    default:
 	      {