fix compute derived in case of multivalue relation... (better fixed i…

…n Moose8, please consider switching to moose8)
moosetechnology · Jan 22, 2021 · 12bf7e4 · 12bf7e4
1 parent 0429bd7
commit 12bf7e4
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/Fame-Core/FMRelationSlot.class.st b/src/Fame-Core/FMRelationSlot.class.st
@@ -178,9 +178,11 @@ FMRelationSlot >> moosePropertyFor: anOwningClassName multivalued: aBoolean [
 		ifTrue: [ mooseProperty name: self name asString.
 			mooseProperty setImplementingSelector: self name.	"should be a link to slot"
 			mooseProperty isMultivalued: aBoolean.
-			(Pragma
-				inMethod: (self class environment at: anOwningClassName) >> self name
-				named: #derived) ifNotNil: [ mooseProperty isDerived: true ].
+			(aBoolean
+				or: [ (Pragma
+						inMethod: (self class environment at: anOwningClassName) >> self name
+						named: #derived) isNotNil ])
+				ifTrue: [ mooseProperty isDerived: true ].
 			mooseProperty privOpposite: self inverseSlot mooseProperty ].
 	^ mooseProperty
 ]