diff --git a/src/Roassal-UML-Calypso/RSUMLPackageCalypso.class.st b/src/Roassal-UML-Calypso/RSUMLPackageCalypso.class.st
index a2eabea2..a3dc75dc 100644
--- a/src/Roassal-UML-Calypso/RSUMLPackageCalypso.class.st
+++ b/src/Roassal-UML-Calypso/RSUMLPackageCalypso.class.st
@@ -63,7 +63,7 @@ RSUMLPackageCalypso >> packages: aCollection [
 
 { #category : #initialization }
 RSUMLPackageCalypso >> setUpModelFromContext [
-	(context canUnderstand: #isPackageTagSelected) ifTrue: [ 
+	(context class canUnderstand: #isPackageTagSelected) ifTrue: [ 
 		self packages: (context isPackageTagSelected
 			ifTrue: [ context selectedClassGroups ]
 			ifFalse: [ context selectedPackages ])