Levente Uzonyi uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-ul.45.mcz

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

Name: SUnitGUI-ul.45
Author: ul
Time: 12 December 2009, 2:48:24 am
UUID: 96a2cee8-c263-9540-9184-720576e46f99
Ancestors: SUnitGUI-nice.44

- replace sends of #ifNotNilDo: to #ifNotNil:, #ifNil:ifNotNilDo: to #ifNil:ifNotNil:, #ifNotNilDo:ifNil: to #ifNotNil:ifNil:

=============== Diff against SUnitGUI-nice.44 ===============

Item was changed:
  ----- Method: TestRunner>>findCategories (in category 'utilities') -----
  findCategories
  	| visible |
  	visible := Set new.
  	self baseClass withAllSubclassesDo: [ :each |
+ 		each category ifNotNil: [ :category |
- 		each category ifNotNilDo: [ :category |
  			visible add: category ] ].
  	^ Array streamContents: [ :stream |
  		Smalltalk organization categories do: [ :each |
  			(visible includes: each)
  				ifTrue: [ stream nextPut: each ] ] ].!