X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fenv.lisp;h=8018e812f90a751a30888cdaf15a4be3c6f4ccbe;hb=a260738d7a71680079d972b102b4e4db4e8dc3ae;hp=bf41126775b2bb4f7646e59736107a82290688ed;hpb=ed7ba4dad8a79726fdfeba5aa12e276ea852c540;p=sbcl.git

diff --git a/src/pcl/env.lisp b/src/pcl/env.lisp
index bf41126..8018e81 100644
--- a/src/pcl/env.lisp
+++ b/src/pcl/env.lisp
@@ -142,8 +142,8 @@
 
 (defmethod make-instance ((class cl:class) &rest stuff)
   (apply #'make-instance (coerce-to-pcl-class class) stuff))
-(defmethod change-class (instance (class cl:class))
-  (apply #'change-class instance (coerce-to-pcl-class class)))
+(defmethod change-class (instance (class cl:class) &rest initargs)
+  (apply #'change-class instance (coerce-to-pcl-class class) initargs))
 
 (macrolet ((frob (&rest names)
 	     `(progn