--- a/runtime/array.c	Wed Apr 28 01:23:30 2010 -0400
+++ b/runtime/array.c	Thu Apr 29 04:32:54 2010 +0000
@@ -16,7 +16,7 @@
 object * _internal_array_getboxed(object * array, int32_t index)
 {
 	object * ret;
-	object ** intarr = (object *)(((char *) array) + sizeof(t_Array));
+	object ** intarr = (object **)(((char *) array) + sizeof(t_Array));
 	ret = add_ref(intarr[index]);
 	release_ref(array);
 	return ret;
@@ -24,7 +24,7 @@
 
 void _internal_array_setboxed(object *array, int32_t index, object * val)
 {
-	object ** intarr = (object *)(((char *) array) + sizeof(t_Array));
+	object ** intarr = (object **)(((char *) array) + sizeof(t_Array));
 	intarr[index] = val;
 }
 
@@ -35,7 +35,7 @@
 	ret->payload.Storage = size;
 	ret->payload.Eltype = (t_Blueprint *)make_Blueprint(0);
 	
-	return ret;
+	return (object *)ret;
 }
 
 object * _internal_array_allocnaked(int32_t size , object * type)