Chris Muller uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-cmm.37.mcz

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

Name: Protocols-cmm.37
Author: cmm
Time: 2 May 2011, 7:55:08.248 pm
UUID: d96b0e7e-5131-4408-a928-c4d68bb8aac9
Ancestors: Protocols-cmm.36

- Reverted half-renamed sender.

=============== Diff against Protocols-cmm.36 ===============

Item was changed:
  ----- Method: Lexicon>>selectorsDefiningInstVar (in category 'within-tool queries') -----
  selectorsDefiningInstVar
  	"Return a list of methods that define a given inst var that are in the protocol of this object"
  
  	| aList  |
  	aList := OrderedCollection new.
  	targetClass withAllSuperclassesDo:
  		[:aClass | 
+ 			(aClass whichMethodsStoreInto: currentQueryParameter asString) do: 
- 			(aClass whichMethodsAssign: currentQueryParameter asString) do: 
  				[ : cm | cm selector isDoIt ifFalse: [aList add: cm selector]
  			]
  		].
  	^ aList!