o secour

OpenSmock · Jun 18, 2024 · e830d99 · e830d99
1 parent 1e15fa1
commit e830d99
Showing 1 changed file with 15 additions and 2 deletions.
diff --git a/src/Pyramid-Bloc/PyramidSaveModelVerifier.class.st b/src/Pyramid-Bloc/PyramidSaveModelVerifier.class.st
@@ -26,8 +26,21 @@ PyramidSaveModelVerifier class >> classPackageIsEqual [
 
 	^ self new
 		  verifyBlock: [ :model |
-			  self classPackageIsEqual: model.
-			   ];
+			  Smalltalk globals
+				  at: model savingClassName asSymbol
+				  ifPresent: [ :class | "
+					Model = class package >> OK
+					Model = class package '-' class packageTag >> OK
+					KO"
+					  class package name = model savingPackageName
+						  ifTrue: [ true ]
+						  ifFalse: [
+							  (model savingPackageName endsWith: class packageTag name)
+								  ifFalse: [ false ]
+								  ifTrue: [
+									  model savingPackageName = (class package name , '-'
+									  , class packageTag name) ] ] ]
+				  ifAbsent: [ true ] ];
 		  showBlock: [ :view | view showClassPackageIsNotEqualError ];
 		  yourself
 ]