Fix up kernel.ss to include unwrapper, also fix arity check now that it takes

one more.

svn: r18300

collects/mred/private/kernel.ss

@@ -78,9 +78,9 @@
 		   (syntax
 		    (define name (let ([c (dynamic-require ''#%mred-kernel 'name)])
 				   (make-primitive-class
-				    (lambda (class prop:object preparer dispatcher more-props)
+				    (lambda (class prop:object preparer dispatcher unwrapper more-props)
 				      (kernel:primitive-class-prepare-struct-type! 
-				       c prop:object class preparer dispatcher more-props))
+				       c prop:object class preparer dispatcher unwrapper more-props))
 				    kernel:initialize-primitive-object
 				    'print-name super (list intf ...) 'args
 				    '(old ...)

src/mzscheme/utils/xcglue.c

@@ -562,7 +562,7 @@ void objscheme_init(Scheme_Env *env)
   scheme_install_xc_global("primitive-class-prepare-struct-type!",
 			   scheme_make_prim_w_arity(class_prepare_struct_type,
 						    "primitive-class-prepare-struct-type!",
-						    6, 6),
+						    7, 7),
 			   env);
   
   scheme_install_xc_global("primitive-class-find-method",