diff --git a/ice-9/list.scm b/ice-9/list.scm
index 6f3de90e6..bd7871f3f 100644
--- a/ice-9/list.scm
+++ b/ice-9/list.scm
@@ -57,5 +57,5 @@
 (define (rassv key alist)
   (generic-rassoc key alist eqv?))
 
-(define (rassv key alist)
+(define (rassq key alist)
   (generic-rassoc key alist eq?))