Reference to shared Pools should report when a shared pool is used.

[Ducasse]

In bloc we have BlInfiniteConstants

SharedPool << #BlInfiniteConstants
	slots: {};
	sharedVariables: { #NoPosition . #ScrollDragging . #NoId . #ScrollIdle . #ScrollSettling };
	tag: 'Core';
	package: 'Bloc-Infinite'

It is used in

BlElement << #BlInfiniteElement
	traits: {TBlScrollable};
	slots: {
			 #dataSource .
			 #dataSourceManager .
			 #state .
			 #recycler .
			 #layoutOrScrollCounter .
			 #dispatchScrollCounter .
			 #itemDecorations .
			 #dataSourceChangedAfterLayout .
			 #firstLayoutComplete .
			 #layoutPositionsRange .
			 #childrenUpdateRunnable .
			 #dataSourceChangeDuringMeasure .
			 #dataSourceObserver .
			 #scrollFlinger .
			 #scrollState };
	sharedPools: { BlInfiniteConstants };
	tag: 'Core';
	package: 'Bloc-Infinite'

but when I asked for the reference to the shared pools, the system reports that there is no reference.