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

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

Name: Kernel-fbs.804
Author: fbs
Time: 2 September 2013, 6:10:57.029 pm
UUID: 0345889e-dff5-8d42-bd1b-6198e307ac13
Ancestors: Kernel-fbs.803

Kernel shouldn't reference UI stuff. Even though this could well belong in System, I'm moving it to Protocol because that's the only in-image user of the message.

=============== Diff against Kernel-fbs.803 ===============

Item was removed:
- ----- Method: ClassDescription>>chooseClassVarName (in category 'instance variables') -----
- chooseClassVarName 
- 	"Present the user with a list of class variable names and answer the one selected, or nil if none"
- 
- 	| lines labelStream allVars index |
- 	lines := OrderedCollection new.
- 	allVars := OrderedCollection new.
- 	labelStream := WriteStream on: (String new: 200).
- 	self withAllSuperclasses reverseDo:
- 		[:class | | vars |
- 		vars := class classVarNames.
- 		vars do:
- 			[:var |
- 			labelStream nextPutAll: var; cr.
- 			allVars add: var].
- 		vars isEmpty ifFalse: [lines add: allVars size]].
- 	labelStream contents isEmpty ifTrue: [^Beeper beep]. "handle nil superclass better"
- 	labelStream skip: -1 "cut last CR".
- 	index := (UIManager default chooseFrom: (labelStream contents substrings) lines: lines).
- 	index = 0 ifTrue: [^ nil].
- 	^ allVars at: index!