diff --git a/lib/init-7.scm b/lib/init-7.scm
index 2e4ff6d8..48e8a854 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -676,7 +676,7 @@
     (let lp ((ls ls))
       (and (pair? ls) (if (eq obj (car ls)) ls (lp (cdr ls)))))))
 
-(define memv member)
+(define (memv obj ls) (member obj ls eqv?))
 
 (define (assoc obj ls . o)
   (let ((eq (if (pair? o) (car o) equal?)))