diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 9aff894eb..03179920e 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,5 +1,7 @@
 2001-03-11  Keisuke Nishida  <kxn30@po.cwru.edu>
 
+	* list.c (s_scm_reverse_x): Use SCM_VALIDATE_LIST.
+
 	* environments.c, error.c, eval.c, filesys.c, hashtab.c, load.c,
 	net_db.c, procprop.c, read.c, scmsigs.c, socket.c, struct.c:
 	Use SCM_LISTn instead of scm_listify.
diff --git a/libguile/list.c b/libguile/list.c
index 141d48a99..7655b53e3 100644
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -329,11 +329,11 @@ SCM_DEFINE (scm_reverse_x, "reverse!", 1, 1, 0,
 	    "@code{reverse!}")
 #define FUNC_NAME s_scm_reverse_x
 {
-  SCM_ASSERT (scm_ilength (lst) >= 0, lst, SCM_ARG1, FUNC_NAME);
+  SCM_VALIDATE_LIST (1, lst);
   if (SCM_UNBNDP (new_tail))
     new_tail = SCM_EOL;
   else
-    SCM_ASSERT (scm_ilength (new_tail) >= 0, new_tail, SCM_ARG2, FUNC_NAME);
+    SCM_VALIDATE_LIST (2, new_tail);
 
   while (SCM_NNULLP (lst))
     {