diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index 552a2856..7b5042e6 100644
--- a/collects/mred/private/kernel.ss
+++ b/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 prop:unwrap more-props)
+				    (lambda (class prop:object preparer dispatcher prop:unwrap unwrapper more-props)
 				      (kernel:primitive-class-prepare-struct-type! 
-				       c prop:object class preparer dispatcher prop:unwrap more-props))
+				       c prop:object class preparer dispatcher prop:unwrap unwrapper more-props))
 				    kernel:initialize-primitive-object
 				    'print-name super (list intf ...) 'args
 				    '(old ...)