Alexander Lazarević uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-laza.199.mcz

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

Name: Tools-laza.199
Author: laza
Time: 3 March 2010, 11:19:55.355 am
UUID: 42375dd4-166f-0747-afc4-c2e1644a916d
Ancestors: Tools-ar.198

Fixes ChangeSorter find

=============== Diff against Tools-ar.198 ===============

Item was changed:
  ----- Method: ChangeSorter>>findCngSet (in category 'changeSet menu') -----
  findCngSet 
  	"Search for a changeSet by name.  Pop up a menu of all changeSets whose name contains the string entered by the user.  If only one matches, then the pop-up menu is bypassed"
  	| index pattern candidates nameList |
  	self okToChange ifFalse: [^ self].
  	pattern := UIManager default request: 'ChangeSet name or fragment?'.
  	pattern isEmpty ifTrue: [^ self].
  	nameList := self changeSetList asSet.
  	candidates := ChangeSet allChangeSets select:
  			[:c | (nameList includes: c name) and: 
  				[c name includesSubstring: pattern caseSensitive: false]].
  	candidates size = 0 ifTrue: [^ Beeper beep].
  	candidates size = 1 ifTrue:
  		[^ self showChangeSet: candidates first].
+ 	index := UIManager default chooseFrom: (candidates collect: [:each | each name]).
- 	index := (UIManager default chooseFrom: 
- 		(candidates collect: [:each | each name]) asStringWithCr).
  	index = 0 ifFalse: [self showChangeSet: (candidates at: index)].
  !