Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.476.mcz

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

Name: Tools-fbs.476
Author: fbs
Time: 28 June 2013, 8:56:08.948 pm
UUID: e33fa621-870c-af40-9e54-5b343a5e8367
Ancestors: Tools-fbs.475

When you rename a message category, select the _new_ name so that you stay where you were.

=============== Diff against Tools-fbs.475 ===============

Item was changed:
  ----- Method: Browser>>renameCategory (in category 'message category functions') -----
  renameCategory
  	"Prompt for a new category name and add it before the
  	current selection, or at the end if no current selection"
  	| oldName newName |
  	self hasClassSelected ifFalse: [^ self].
  	self okToChange ifFalse: [^ self].
  	self hasMessageCategorySelected ifFalse: [^ self].
  		
  	oldName := self selectedMessageCategoryName.
  	newName := self
  		request: 'Please type new category name'
  		initialAnswer: oldName.
  	newName isEmpty
  		ifTrue: [^ self]
  		ifFalse: [newName := newName asSymbol].
  	newName = oldName ifTrue: [^ self].
  	self classOrMetaClassOrganizer
  		renameCategory: oldName
  		toBe: newName.
  	self selectClassNamed: selectedClassName.
+ 	self selectMessageCategoryNamed: newName.
- 	self selectMessageCategoryNamed: oldName.
  	self changed: #messageCategoryList.
  !