diff --git a/oop/ChangeLog b/oop/ChangeLog
index 415f419d8..085e5918f 100644
--- a/oop/ChangeLog
+++ b/oop/ChangeLog
@@ -3,6 +3,7 @@
 	* goops.scm (eqv?, equal?): Provide default methods for `eqv?' and
 	`equal?'.
 	(compute-getters-n-setters): Check for bad init-thunks.
+	(update-direct-method!): Use eq? instead of eqv?.
 
 2003-04-15  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
 
diff --git a/oop/goops.scm b/oop/goops.scm
index 574975575..4d02eddc9 100644
--- a/oop/goops.scm
+++ b/oop/goops.scm
@@ -936,7 +936,7 @@
     ;; So we can work as if we had only proper lists.
     (if (pair? l)       	  
 	(begin
-	  (if (eqv? (car l) old)  
+	  (if (eq? (car l) old)  
 	      (set-car! l new))
 	  (loop (cdr l))))))