Regression

windows-64 / Tests-windows-64 / Windows64.ReleaseTests.Tests.ObsoleteTest.testFixObsoleteSharedPools (from ReleaseTests)

Failing for the past 1 build (Since #895 )
Took 10 sec.

Stacktrace

TestTookTooMuchTime
Process>>pvtSignal:list:
SmalltalkImage>>specialSelectorIndexOrNil:
Metaclass(Behavior)>>thoroughWhichMethodsReferTo:
[ :class | class thoroughWhichMethodsReferTo: aLiteral] in SystemNavigation>>allReferencesTo:
[ :each | stream nextPutAll: (aBlock value: each) ] in [ :stream | self do: [ :each | stream nextPutAll: (aBlock value: each) ] ] in OrderedCollection(SequenceableCollection)>>flatCollect:
OrderedCollection>>do:
[ :stream | self do: [ :each | stream nextPutAll: (aBlock value: each) ] ] in OrderedCollection(SequenceableCollection)>>flatCollect:
OrderedCollection class(SequenceableCollection class)>>new:streamContents:
OrderedCollection class>>new:streamContents:
OrderedCollection(SequenceableCollection)>>flatCollect:
SystemNavigation>>allReferencesTo:
[ :key | 
			(self systemNavigation allReferencesTo: (self associationAt: key)) isEmpty ] in Dictionary>>unreferencedKeys
[ :stream|
		1 to: self size do: [ :index |
			(aBlock value: (each := self at: index))
				ifTrue: [ stream nextPut: each ]]] in Array(SequenceableCollection)>>select:
Array class(SequenceableCollection class)>>new:streamContents:
Array(SequenceableCollection)>>select:
Dictionary>>unreferencedKeys
Dictionary>>removeUnreferencedKeys
SmalltalkImage>>cleanOutUndeclared
SmalltalkImage>>fixObsoleteSharedPools
SmalltalkImage>>fixObsoleteReferences
ObsoleteTest>>tearDown