Index: pcl/methods.lisp
===================================================================
RCS file: /usr/local/CVS/agcl/pcl/methods.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -B -r1.1 -r1.2
--- pcl/methods.lisp	2002/11/04 15:59:30	1.1
+++ pcl/methods.lisp	2002/11/21 20:08:38	1.2
@@ -442,10 +442,14 @@
 			      ()
 			      (make-list nrequireds :initial-element 't)
 			      arglist
-			      (list :function
+;			      (list :function
+;				    #'(lambda (args next-methods)
+;					(declare (ignore next-methods))
+;					(apply original args)))))
+			      :function
 				    #'(lambda (args next-methods)
 					(declare (ignore next-methods))
-					(apply original args)))))
+					(apply original args))))))
 	  generic-function))))