137 classNamed:aString

   138     "return the class with name aString, or nil if absent.

   139      To get to the metaClass, append ' class' to the string."

   140 

   141     |cls sym meta|

   142 

   143     "be careful, to not invent new symbols ..."

   144     sym := aString asSymbol.

   145     cls := self at:sym ifAbsent:[].

   146     cls isBehavior ifTrue:[^ cls].

   147 

   148     (aString endsWith:' class') ifTrue:[

   149 

   150         meta := self classNamed:(aString copyWithoutLast:6).

   151         meta notNil ifTrue:[

   152             ^ meta class

   153         ].

   154     ].

   155     ^ nil

   156 !

   157