Nicolas Cellier uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-nice.1.mcz

==================== Summary ====================

Name: ToolsTests-nice.1
Author: nice
Time: 24 August 2009, 10:45:58 am
UUID: d7b7c74c-656a-444b-baae-28784deca84f
Ancestors: 

Create this package to categorize tests for
http://bugs.squeak.org/view.php?id=6812

This will not be uploaded automatically in the trunk images...
...until a mcm tells to do so if I understand it correctly.

==================== Snapshot ====================

SystemOrganization addCategory: #'ToolsTests-Inspector'!

TestCase subclass: #WeakSetInspectorTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'ToolsTests-Inspector'!

----- Method: WeakSetInspectorTest>>testSymbolTableM6812 (in category 'testing') -----
testSymbolTableM6812
	"this test is related to http://bugs.squeak.org/view.php?id=6812"
	
	| aWeakSet anInspector fieldSize |
	aWeakSet := (Symbol classPool at: #SymbolTable).
	anInspector := (ToolSet inspectorClassOf: aWeakSet) inspect: aWeakSet.
	
	fieldSize := anInspector fieldList size.
	3 timesRepeat:
		[Smalltalk garbageCollect.
		self assert: fieldSize = anInspector fieldList size.]
	!