--- rpl/modules/sets/union.rplc	2017/07/03 12:15:30	1.4
+++ rpl/modules/sets/union.rplc	2017/07/31 08:59:37	1.5
@@ -67,10 +67,10 @@ declareExternalFunction(union)
 		vector = reallocate(vector, k * size(integer8));
 
 		createExternalObject(result, ISET);
-		(*result).objet = allocate(size(set_t));
+		objectOf(result) = allocate(size(set_t));
 
-		(*((set_t *) (*result).objet)).size = k;
-		(*((set_t *) (*result).objet)).values = vector;
+		objectContainer(set_t, result)->size = k;
+		objectContainer(set_t, result)->values = vector;
 
 		freeObject(object1);
 		freeObject(object2);