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

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

Name: System-eem.381
Author: eem
Time: 1 October 2010, 5:13:05.666 am
UUID: fe56800a-cea9-49b7-b807-5e48494053c4
Ancestors: System-ul.380

Answer methodClassName for class comment chnages so
that the change list includes class comments in "select
changes for this class" et al.

=============== Diff against System-ul.380 ===============

Item was changed:
  ----- Method: ChangeRecord>>methodClassName (in category 'access') -----
  methodClassName
+ 	| tokens |
- 	| text tokens |
  	(class isNil
  	and: [type = #doIt
+ 	and: [(tokens := Scanner new scanTokens: self text) size >= 3
+ 	and: [(tokens includes: #'.') not "exclude multi-statement doits"
- 	and: [((text := self text) includes: $.) not "exclude multi-statement doits"
- 	and: [(tokens := Scanner new scanTokens: text) size >= 4
  	and: [tokens first isSymbol
  	and: [tokens first isKeyword not
  	and: [tokens first first canBeGlobalVarInitial
+ 	and: [(tokens includes: #instanceVariableNames:)
+ 		or: [tokens second == #comment:
+ 		or: [tokens third == #comment:]]]]]]]]]) ifTrue:
- 	and: [tokens includes: #instanceVariableNames:]]]]]]]) ifTrue:
  		["Could be a class definition.
  			Class definitions start with Superclass blahSubclass: #ClassName
  			Metaclass definitions start with ClassName class instanceVariableNames:"
  		 (tokens second isSymbol
  		  and: [tokens second isKeyword
  		  and: [tokens third isSymbol
  		  and: [tokens third isKeyword not
  		  and: [(2 to: tokens size by: 2) allSatisfy: [:i| (tokens at: i) isKeyword]]]]]) ifTrue:
  			[^tokens third].
  		 (tokens size = 4
  		  and: [tokens second = #class
+ 		  and: [(tokens third = #instanceVariableNames: or: [tokens third = #comment:])
- 		  and: [tokens third = #instanceVariableNames:
  		  and: [tokens last isString]]]) ifTrue:
+ 			[^tokens first].
+ 		 (tokens size = 3
+ 		  and: [tokens second = #comment:
+ 		  and: [tokens last isString]]) ifTrue:
  			[^tokens first]].
  	^class!