'From Cuis 1.0 of 28 November 2009 [latest update: #337] on 3 January 2010 at 3:15:49 pm'!

!Behavior methodsFor: '*system-support' stamp: 'jmv 1/3/2010 15:15'!
allCallsOn
	"Answer a SortedCollection of all the methods that refer to me by name or 
	as part of an association in a global dict."
	"
	^ (Smalltalk
		allCallsOn: (Smalltalk associationAt: self theNonMetaClass name))
		, (Smalltalk allCallsOn: self theNonMetaClass name)
	"

	^ (Smalltalk allCallsOn: self theNonMetaClass name)! !

