Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.458.mcz

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

Name: Tools-eem.458
Author: eem
Time: 20 March 2013, 12:36:28.93 pm
UUID: 92bec064-c457-41af-b8c3-86f7daafbbb9
Ancestors: Tools-eem.457

In CHangeSorter, after forgetting a class, select at the
same point in the class list, which helps if e.g. doing
something repetitive such as moving a number of classes
to another change set.

=============== Diff against Tools-eem.457 ===============

Item was changed:
  ----- Method: ChangeSorter>>forgetClass (in category 'class list') -----
  forgetClass
+ 	"Remove all mention of this class from the changeSet.
+ 	 After forgetting, select at the same point in the class
+ 	 list, which helps if e.g. doing something repetitive such
+ 	 as moving a number of classes to the other side."
+ 	| index classList |
- 	"Remove all mention of this class from the changeSet"
- 
  	self okToChange ifFalse: [^ self].
+ 	currentClassName ifNil: [^self].
+ 	index := self classList indexOf: currentClassName.
+ 	myChangeSet removeClassChanges: (self withoutItemAnnotation: currentClassName).
+ 	currentSelector := nil.
+ 	classList := self classList.
+ 	currentClassName := classList isEmpty ifFalse:
+ 								[classList at: (index min: classList size)].
+ 	self showChangeSet: myChangeSet!
- 	currentClassName ifNotNil: [
- 		myChangeSet removeClassChanges: (self withoutItemAnnotation: currentClassName).
- 		currentClassName := nil.
- 		currentSelector := nil.
- 		self showChangeSet: myChangeSet].
- !