diff --git a/SOPE/NGCards/CardElement.m b/SOPE/NGCards/CardElement.m
index 544159ddd..a20f65e7e 100644
--- a/SOPE/NGCards/CardElement.m
+++ b/SOPE/NGCards/CardElement.m
@@ -109,12 +109,13 @@
     [tag release];
   [values release];
   [attributes release];
+  [parent release];
   [super dealloc];
 }
 
 - (void) setParent: (CardGroup *) aParent
 {
-  parent = aParent;
+  ASSIGN (parent, aParent);
 }
 
 - (id) parent