I'm not sure how many folks still use FileContentsBrowser, but there is 
a small issue:

browseStream: aStream named: aString

     | browser |
     Cursor wait showWhile: [ | package packageDict organizer |
         packageDict := Dictionary new.
         browser := self new.
         organizer := SystemOrganizer defaultList: Array new.
         package := (FilePackage new fullName: aString; fileInFrom: 
aStream).
         packageDict
             at: package packageName
             put: package.
*organizer **
**            classifyAll: package classes keys **
**            under: package packageName.*
         (browser := self systemOrganizer: organizer)
             packages: packageDict].
     self
         openBrowserView: browser createViews
         label: 'File Contents Browser'.

which soon leads to SystemOrganizer

classify: element under: newCategory
     | oldCategory class |
     oldCategory := self categoryOfElement: element.
     super classify: element under: newCategory.
     class := Smalltalk at: element ifAbsent: [^ self].
*SystemChangeNotifier uniqueInstance**
**        class: class**
**        recategorizedFrom: oldCategory**
**        to: newCategory *

which causes all known classes in the file being browsed to be added to 
the current change set as having a class definition change. Perhaps it 
makes sense to do the notification only if this SystemOrganizer is 
actually SystemOrganization.

Cheers,
Bob
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20130116/f72bc407/attachment.htm