[Cuis] Is there a cleaner way to determine if a method was called by a subclass?

[Phil (list)]

Let's say I have a class Foo with class method aMethod and a subclass
Bar, is there a way to determine whether or not aMethod is being called
by the parent class other than:
aMethod
	^ self name = #Foo

i.e. I'd like to avoid referencing the class name if possible.  Is there
an introspective call I could use to accomplish this?