From ad6f23ed7eeb539b568604242f50cdb4ad4bb704 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 2 Mar 2001 20:47:02 +0000
Subject: [PATCH] .

original commit: 91d394c706ea8a774c76e27403ee2ba4e4532be6
---
 collects/mred/private/kernel.ss | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index 053d5e46..12cb89e4 100644
--- a/collects/mred/private/kernel.ss
+++ b/collects/mred/private/kernel.ss
@@ -89,10 +89,11 @@
 		 (with-syntax ([(old ...) (datum->syntax old #f #f)]
 			       [(new ...) (datum->syntax new #f #f)])
 		   (syntax
-		    (define name (let ([c (dynamic-require '#%mred-kernel 'name)])
-				   (kernel:primitive-class-prepare-struct-type! c prop:object)
+		    (define name (let ([c (dynamic-require '#%mred-kernel 'name)]
+				       [b (box #f)])
+				   (kernel:primitive-class-prepare-struct-type! c prop:object b)
 				   (make-prim-class
-				    (kernel:primitive-class->struct-type c)
+				    (kernel:primitive-class->struct-type c) b
 				    kernel:dispatcher-property
 				    kernel:initialize-primitive-object
 				    'name super