A new version of ProtocolsTest was added to project The Inbox:
http://source.squeak.org/inbox/ProtocolsTest-fbs.1.mcz

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

Name: ProtocolsTest-fbs.1
Author: fbs
Time: 19 June 2011, 3:15:15.739 pm
UUID: b3376019-8b70-48bb-b9e0-1ef38d35c12e
Ancestors: 

A test demonstrating that Lexicon>>openOnClass:showingSelector: mustn't blow up (because of an uninitialised messageList).

==================== Snapshot ====================

SystemOrganization addCategory: #ProtocolsTest!

TestCase subclass: #LexiconTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'ProtocolsTest'!

----- Method: LexiconTest>>testOpenOnClassShowingSelector (in category 'testing - instance creation') -----
testOpenOnClassShowingSelector
	| lex |
	"We check that opening doesn't blow up."
	lex := Lexicon new openOnClass: Lexicon showingSelector: #openOnClass:showingSelector:.
	[self assert: lex selectedClass = Lexicon]
		ensure: [ToolBuilder default close: lex topView].!