diff --git a/src/Ring-Core-Tests/RGLayoutDefinitionTest.class.st b/src/Ring-Core-Tests/RGLayoutDefinitionTest.class.st index 4cbef259672..313254b16e7 100644 --- a/src/Ring-Core-Tests/RGLayoutDefinitionTest.class.st +++ b/src/Ring-Core-Tests/RGLayoutDefinitionTest.class.st @@ -124,7 +124,9 @@ RGLayoutDefinitionTest >> testNewLayouts [ { #category : 'tests' } RGLayoutDefinitionTest >> testResolvingConsistency [ - | anObject | - anObject := RGPointerLayout unnamed. - self checkClassesConsistency: anObject and: anObject makeResolved + | layout | + layout := RGPointerLayout unnamed. + + layout addSlot: ((RGInstanceVariableSlot unnamed) propertyNamed: #environment put: layout environment). + self checkClassesConsistency: layout and: layout makeResolved ] diff --git a/src/Ring-Core/RGPointerLayout.class.st b/src/Ring-Core/RGPointerLayout.class.st index f35a9be007a..2d60ed751a5 100644 --- a/src/Ring-Core/RGPointerLayout.class.st +++ b/src/Ring-Core/RGPointerLayout.class.st @@ -62,10 +62,9 @@ RGPointerLayout >> isPointerLayout [ { #category : 'resolving' } RGPointerLayout >> makeResolved [ - super makeResolved. - slots := self slots asOrderedCollection markAsRingResolved + slots := self slots do: [ :each | each markAsRingResolved] ] { #category : 'private - backend access' }