[Pkg] The Trunk: System-cwp.526.mcz

[commits at source.squeak.org]

Colin Putney uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cwp.526.mcz

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

Name: System-cwp.526
Author: cwp
Time: 28 April 2013, 10:43:06.298 am
UUID: d0a7abd6-1556-4900-b5ca-640d1aed4d7c
Ancestors: System-ul.525

Update Behavior>>allCallsOn to search for references using #bindingOf: rather than #associationAt:. This matches the binding created by the compiler.

=============== Diff against System-ul.525 ===============

Item was changed:
  ----- Method: Behavior>>allCallsOn (in category '*System-Support') -----
  allCallsOn
  	"Answer a SortedCollection of all the methods that refer to me by name or as part of an association in a global dict."
  
  	| theClass |
  	theClass := self theNonMetaClass.
+ 	^(self  systemNavigation allCallsOn:  (self environment bindingOf: theClass name)),
- 	^(self  systemNavigation allCallsOn:  (self environment associationAt: theClass name)),
  	  (Preferences thoroughSenders
  		ifTrue: [OrderedCollection new]
  		ifFalse: [self  systemNavigation allCallsOn: theClass name]),
  	  (self systemNavigation allClasses
  		select: [:c| c sharedPools includes: theClass]
  		thenCollect:
  			[:c|
  			ClassReference new
  				setClassSymbol: c name
  				classIsMeta: false
  				stringVersion: c name])!