Fix not existing method for Pharo 11

src/Pyramid-Bloc/PyramidSaveModelVerifier.class.st

@@ -28,12 +28,16 @@ PyramidSaveModelVerifier class >> classPackageIsEqual [
 		  verifyBlock: [ :model |
 			  self class environment
 				  at: model savingClassName asSymbol
-				  ifPresent: [ :class |
-					"
+				  ifPresent: [ :class | "
 					Model = class package >> OK
 					Model = class package '-' class packageTag >> OK
 					KO"
-					  class packageName = model savingPackageName ifTrue: [ true ] ifFalse: [ class packageTag ifNil: [false] ifNotNil: [ (class packageName ,'-', class packageTagName) = model savingPackageName ] ] ]
+					  class package name = model savingPackageName
+						  ifTrue: [ true ]
+						  ifFalse: [
+							  class packageTag ifNil: [ false ] ifNotNil: [
+									  class package name , '-' , class packageTag name
+									  = model savingPackageName ] ] ]
 				  ifAbsent: [ true ] ];
 		  showBlock: [ :view | view showClassPackageIsNotEqualError ];
 		  yourself

src/Pyramid-Tests/PyramidSavingServiceTest.class.st

@@ -106,11 +106,12 @@ PyramidSavingServiceTest >> testCanSave [
 	model savingMethodName: 'aPyramidSavingMethod'.
 	model savingPackageName: self savingClass package name.
 	self assert: self savingService canSave.
-	
+
 	self assert: self savingClass packageTag isNotNil.
 	model savingClassName: self savingClass name.
 	model savingMethodName: 'aPyramidSavingMethod'.
-	model savingPackageName: self savingClass packageName, '-', self savingClass packageTagName.
+	model savingPackageName:
+		self savingClass package name , '-' , self savingClass packageTag name.
 	self assert: self savingService canSave.
 
 	model savingClassName: self savingClass name.
@@ -146,7 +147,7 @@ PyramidSavingServiceTest >> testSave [
 	model := PyramidSaveModel new.
 	model projectModel: PyramidProjectModel new.
 	model savingClassName: self savingClass name.
-	model savingPackageName: self savingClass packageName.
+	model savingPackageName: self savingClass package name.
 	self savingService saveModel: model.
 
 	self deny: (self savingClass classSide canUnderstand: #classMethod).
@@ -173,7 +174,8 @@ PyramidSavingServiceTest >> testSave [
 		(self savingClass instanceSide canUnderstand: #instanceMethod).
 
 	model onClass.
-	model savingPackageName: self savingClass packageName , '-' , self savingClass packageTagName.
+	model savingPackageName:
+		self savingClass package name , '-' , self savingClass packageTag name.
 	model savingMethodName: 'packageWithTag'.
 	self savingService save.
 	self assert: