isKindOf: aClass | clas | clas <- self class. [ clas notNil ] whileTrue: [ clas == aClass ifTrue: [ ^ true ]. clas <- clas superclass ]. ^ false