--- rpl/modules/sets/complement.rplc	2017/07/03 12:15:30	1.1
+++ rpl/modules/sets/complement.rplc	2017/07/31 08:59:37	1.2
@@ -63,10 +63,10 @@ declareExternalFunction(complement)
 		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);