diff --git a/lib/init-7.scm b/lib/init-7.scm
index 61538ecd..56685d72 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -469,7 +469,7 @@
             ((eq obj (caar ls)) (car ls))
             (else (assoc (cdr ls)))))))
 
-(define assv assoc)
+(define (assv obj ls) (assoc obj ls eqv?))
 
 (define (find-tail pred ls)
   (and (pair? ls) (if (pred (car ls)) ls (find-tail pred (cdr ls)))))