--- a/cbackend.rhope	Mon Aug 02 01:55:56 2010 -0400
+++ b/cbackend.rhope	Mon Aug 02 05:12:19 2010 -0400
@@ -249,7 +249,7 @@
 		{
 			out <- ""	
 		}{
-			[("Array","Worker")]Find[[ctype]Name >>]
+			[("Array","Boxed Array","Worker")]Find[[ctype]Name >>]
 			{ oend <- "\nMObject(" }
 			{ oend <- "\nObject(" } 
 			out <- [Fold["_Type Def C Type", "OBegin", [ctype]Fields >>]]Append[ [[oend]Append[Escape Rhope Name[[ctype]Name >>]]]Append[")"] ]
@@ -271,7 +271,7 @@
 
 Type Init@C Type[ctype,id,method reg,field reg:out]
 {
-	[("Array","Worker")]Find[[ctype]Name >>]
+	[("Array","Boxed Array", "Worker")]Find[[ctype]Name >>]
 	{ size <- "-1" }
 	{ 
 		[("Int64","Int32","Int16","Int8")]Find[[ctype]Name >>]
@@ -321,7 +321,7 @@
 C Type Registry[:out]
 {
 	out <- [[[Build["C Type Registry"]]Lookup << [
-			[[[[[[[[[[[[[[[[[[Dictionary[]
+			[[[[[[[[[[[[[[[[[[[Dictionary[]
 			]Set["UInt8", "TYPE_UINT8"]			//1
 			]Set["UInt16", "TYPE_UINT16"]		//2
 			]Set["UInt32", "TYPE_UINT32"]		//3
@@ -336,10 +336,11 @@
 			]Set["Real Number", "TYPE_FLOAT64"]	//12
 			]Set["Blueprint", "TYPE_BLUEPRINT"]	//13
 			]Set["Array", "TYPE_ARRAY"]			//14
-			]Set["Worker", "TYPE_WORKER"]		//15
-			]Set["Method Missing Exception", "TYPE_METHODMISSINGEXCEPTION"]	//16
-			]Set["Field Missing Exception", "TYPE_FIELDMISSINGEXCEPTION"]	//17
-			]Set["Wrong Type Exception", "TYPE_WRONGTYPEEXCEPTION"]]		//18
+			]Set["Boxed Array", "TYPE_BOXEDARRAY"]//15
+			]Set["Worker", "TYPE_WORKER"]		//16
+			]Set["Method Missing Exception", "TYPE_METHODMISSINGEXCEPTION"]	//17
+			]Set["Field Missing Exception", "TYPE_FIELDMISSINGEXCEPTION"]	//18
+			]Set["Wrong Type Exception", "TYPE_WRONGTYPEEXCEPTION"]]		//19
 		]Definitions << [Dictionary[]]
 		]Next ID <<[0]
 }