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

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

Name: Kernel-laza.649
Author: laza
Time: 3 November 2011, 1:09:36.555 am
UUID: 9ee9cceb-4b76-3d41-8a57-bd0b6eb79dc0
Ancestors: Kernel-eem.648

Make protocol changes be recorded by the changes file.

=============== Diff against Kernel-eem.648 ===============

Item was changed:
  ----- Method: ClassOrganizer>>addCategory:before: (in category 'accessing') -----
  addCategory: catString before: nextCategory
- 	| oldCategories |
- 	oldCategories := self categories copy.
  	SystemChangeNotifier uniqueInstance doSilently: [
  		super addCategory: catString before: nextCategory].
+ 	self notifyOfChangedCategoryFrom: nil to: catString.!
- 	self notifyOfChangedCategoriesFrom: oldCategories to: self categories.!

Item was changed:
  ----- Method: ClassOrganizer>>notifyOfChangedCategoryFrom:to: (in category 'private') -----
  notifyOfChangedCategoryFrom: oldNameOrNil to: newNameOrNil
  	(self hasSubject and: [oldNameOrNil ~= newNameOrNil]) 
+ 		ifTrue: [
+ 			oldNameOrNil
+ 				ifNil: [
+ 					newNameOrNil ifNotNil: [
+ 						SystemChangeNotifier uniqueInstance
+ 							protocolAdded: newNameOrNil inClass: self subject.
+ 					]
+ 				]
+ 				ifNotNil: [
+ 					newNameOrNil ifNil: [
+ 						SystemChangeNotifier uniqueInstance
+ 							protocolRemoved: oldNameOrNil inClass: self subject.
+ 					]
+ 					ifNotNil: [
+ 						SystemChangeNotifier uniqueInstance
+ 							protocolRenamedFrom: oldNameOrNil to: newNameOrNil inClass: self subject.
+ 					]
+ 				]. 	
+ 		].!
- 		ifTrue: [SystemChangeNotifier uniqueInstance classReorganized: self subject].!

Item was changed:
  ----- Method: ClassOrganizer>>removeCategory: (in category 'accessing') -----
  removeCategory: cat 
- 	| oldCategories |
- 	oldCategories := self categories copy.
  	SystemChangeNotifier uniqueInstance doSilently: [
  		super removeCategory: cat].
+ 	self notifyOfChangedCategoryFrom: cat to: nil.!
- 	self notifyOfChangedCategoriesFrom: oldCategories to: self categories.!

Item was changed:
  ----- Method: ClassOrganizer>>renameCategory:toBe: (in category 'accessing') -----
  renameCategory: oldCatString toBe: newCatString
+ 	| oldCat newCat |
- 	| oldCat newCat oldElementsBefore oldElementsAfter |
  	oldCat := oldCatString asSymbol.
  	newCat := newCatString asSymbol.
- 	oldElementsBefore := self listAtCategoryNamed: oldCat.
  	SystemChangeNotifier uniqueInstance doSilently: [
  		super renameCategory: oldCatString toBe: newCatString].
- 	oldElementsAfter := (self listAtCategoryNamed: oldCat) asSet.
- 	oldElementsBefore do: [:each |
- 		(oldElementsAfter includes: each)
- 			ifFalse: [self notifyOfChangedSelector: each from: oldCat to: newCat].
- 	].
  	self notifyOfChangedCategoryFrom: oldCat to: newCat.!