fixed case when commentBlock is not provided

OpenPonk · Nov 29, 2020 · 5d5536b · 5d5536b
1 parent afe04d9
commit 5d5536b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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' }