diff --git a/pcl/methods.lisp b/pcl/methods.lisp
index 53a26e2c495414709e5393c8496fb8637e5f6851..a16756067506fbb0843111016d15e106b6c00d2e 100644
--- a/pcl/methods.lisp
+++ b/pcl/methods.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.36 2003/06/04 08:47:03 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.37 2003/06/05 07:46:32 gerd Exp $")
 
 (in-package :pcl)
 
@@ -463,7 +463,7 @@
 	(update-ctors 'add-method :generic-function gf :method method)
 	(update-dfun gf))
       (update-accessor-pvs 'add-method gf method old)
-      method)))
+      gf)))
   
 (defun real-remove-method (gf method)
   (when (eq gf (method-generic-function method))