From 5d5536bd5315b0cdc3dd81582f6d23ca20c23168 Mon Sep 17 00:00:00 2001
From: Jan Bliznicenko <jan.bliznicenko@fit.cvut.cz>
Date: Tue, 24 Nov 2020 21:17:06 +0100
Subject: [PATCH] fixed case when commentBlock is not provided

---
 repository/OpenPonk-UML-DI/OPUmlClassifierShape.class.st | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/repository/OpenPonk-UML-DI/OPUmlClassifierShape.class.st b/repository/OpenPonk-UML-DI/OPUmlClassifierShape.class.st
index 39f2cf2..7c5030d 100644
--- a/repository/OpenPonk-UML-DI/OPUmlClassifierShape.class.st
+++ b/repository/OpenPonk-UML-DI/OPUmlClassifierShape.class.st
@@ -28,7 +28,8 @@ OPUmlClassifierShape >> initialize [
 	commentIcon display: [ self hasComments ].
 	commentIcon form: (self iconNamed: #announcement).
 	commentIcon localStyle: OPUmlStyle new.
-	commentIcon owningElement: self
+	commentIcon owningElement: self.
+	commentBlock := #()
 ]
 
 { #category : #'Roassal2 - updating' }