diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index 79907f299025d48a1f4faaa50098616b5c173bc9..42c20724589823b71b6705ffb96278a33660b30b 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.67 2003/06/03 11:38:15 gerd Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.68 2003/06/05 08:33:45 gerd Exp $")
 
 (in-package :pcl)
 
@@ -2041,7 +2041,8 @@ work during bootstrapping.
 			     initargs
 			     ())))
     (when existing (remove-method gf existing))
-    (add-method gf new)))
+    (add-method gf new)
+    new))
 
 ;;;
 ;;; This is the early version of add-method.  Later this will become a
@@ -2059,7 +2060,8 @@ work during bootstrapping.
     (set-arg-info generic-function :new-method method)
     (unless (assoc (early-gf-name generic-function) *generic-function-fixups*
 		   :test #'equal)
-      (update-dfun generic-function)))
+      (update-dfun generic-function))
+    generic-function)
 
   ;;
   ;; This is the early version of remove method.
@@ -2074,7 +2076,8 @@ work during bootstrapping.
     (set-arg-info generic-function)
     (unless (assoc (early-gf-name generic-function) *generic-function-fixups*
 		   :test #'equal)
-      (update-dfun generic-function)))
+      (update-dfun generic-function))
+    generic-function)
 
   ;;
   ;; And the early version of get-method.
diff --git a/pcl/methods.lisp b/pcl/methods.lisp
index a16756067506fbb0843111016d15e106b6c00d2e..aece039e285cdafa57d387592952e8ceafd676eb 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.37 2003/06/05 07:46:32 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.38 2003/06/05 08:33:45 gerd Exp $")
 
 (in-package :pcl)
 
@@ -360,7 +360,8 @@
 		     :specializers specs
 		     :lambda-list lambda-list
 		     other-initargs)))
-    (add-method gf new)))
+    (add-method gf new)
+    new))