I can search for reasons why a certain object isn't garbage collected. I'm a quick port of a VisualWorks program written by Hans-Martin Mosner. Call me as shown below. I'll search for a path from a global variable to the given object, presenting it in a small morphic UI.

Examples:
PointerFinder on: self currentHand
PointerFinder on: StandardSystemView someInstance

Now, let's see why this image contains more HandMorphs as expected...

HandMorph allInstancesDo: [:e | PointerFinder on: e]

	morphic ui
	arrowKey:from: initialExtent inspectObject menu:shifted: open perform:orSendTo: pointerList pointerListIndex pointerListIndex: searchAgain

	application	top
	buildList
	follow:from:
	followObject:
	goal:
	initialize
	isLiteral Horrible hack to omit other Pointer Finders from scanning.
	search
	update

	morphic ui	top
	arrowKey:from: Process the up and down arrows in a list pane. Note that the listView tells us what index variable, how to get the list, and how to move the index. Derived from a Martin Pammer submission, 02/98
	initialExtent Answer the desired extent for the receiver when a view on it is first opened on the screen. 5/22/96 sw: in the absence of any override, obtain from RealEstateAgent
	inspectObject
	menu:shifted:
	open
	perform:orSendTo: Selector was just chosen from a menu by a user. If can respond, then perform it on myself. If not, send it to otherTarget, presumably the editPane from which the menu was invoked.
	pointerList
	pointerListIndex
	pointerListIndex:
	searchAgain

	instance creation	top
	on: