--- a/runtime/object.h	Sat Oct 10 16:40:50 2009 -0400
+++ b/runtime/object.h	Tue Oct 13 00:07:34 2009 -0400
@@ -52,8 +52,9 @@
 	object           *params[1];
 } calldata;
 
-#define OBegin typedef struct { object header;
-#define Object(name) } t_ ## name;
+#define OBegin typedef struct {
+#define Object(name) } nt_ ## name; typedef struct { object _SP_header; nt_ ## name payload; } t_ ## name;
+#define Box(nakedtype,fieldname,objectname) typedef struct{ object _SP_header; nakedtype fieldname; } t_ ## objectname;
 
 #define MOBegin typedef struct { multisize header;