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

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

Name: System-eem.671
Author: eem
Time: 2 May 2014, 4:07:33.923 pm
UUID: 89a11af6-9ef1-4bda-a42f-933a8ce17bb0
Ancestors: System-cwp.670

Fix allStoresInto:from: for pool variables and hence fix
browsing assignments... to a pool variable in classes that
use the pool.

=============== Diff against System-cwp.670 ===============

Item was changed:
  ----- Method: SystemNavigation>>allStoresInto:from: (in category 'query') -----
  allStoresInto: varName from: aClass 
  	"Answer a sequence of MewthodReferences for all the receiver's methods 
  	 or any methods of a subclass/superclass that assign to the instance variable name."
  	"self new allStoresInto: 'contents' from: Collection."
  	| result |
  	result := OrderedCollection new.
+ 	(aClass theNonMetaClass inheritsFrom: SharedPool) ifTrue:
+ 		[self allBehaviorsDo:
+ 			[:class|
+ 			(class theNonMetaClass sharedPools includes: aClass theNonMetaClass) ifTrue:
+ 				[(class whichMethodsStoreInto: varName) do:
+ 					[:eachMethod|
+ 					result add: eachMethod methodReference]]]].
  	aClass withAllSubAndSuperclassesDo:
  		[ : class |
  		(class whichMethodsStoreInto: varName) do:
  			[ : eachMethod |
  			result add: eachMethod methodReference ] ].
  	^result!