diff --git a/vhdlpp/expression.cc b/vhdlpp/expression.cc
index 9a0a4185f..4361656a0 100644
--- a/vhdlpp/expression.cc
+++ b/vhdlpp/expression.cc
@@ -142,7 +142,7 @@ ExpAggregate::~ExpAggregate()
       for(std::vector<choice_element>::iterator it = aggregate_.begin();
               it != aggregate_.end(); ++it) {
         delete it->choice;
-        delete it->expr;
+        if(!it->alias_flag) delete it->expr;
       }
 }