diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 169df8be2..5a3369ad7 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,5 +1,7 @@
 2004-04-06  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+	* inline.h (scm_cell): use SCM_GC_CELL_WORD for checking tag.
+
 	* chars.h (scm_init_chars): change scm_{upcase,downcase} to
 	scm_c_{up,down}case. 
 	(SCM_MAKE_CHAR): add (unsigned char) cast. This prevents havoc
diff --git a/libguile/inline.h b/libguile/inline.h
index 0a3c8ad75..6e6f1f4cf 100644
--- a/libguile/inline.h
+++ b/libguile/inline.h
@@ -98,7 +98,7 @@ scm_cell (scm_t_bits car, scm_t_bits cdr)
 	    fprintf(stderr, "scm_cell tried to allocate a marked cell.\n");
 	    abort();
 	  }
-	else if (SCM_GC_CELL_TYPE(z) != scm_tc_free_cell)
+	else if (SCM_GC_CELL_WORD(z, 0) != scm_tc_free_cell)
 	  {
 	    fprintf(stderr, "cell from freelist is not a free cell.\n");
 	    abort();