--- a/SnapShotImage.st	Thu Mar 28 13:58:16 2002 +0100
+++ b/SnapShotImage.st	Mon Apr 08 11:49:38 2002 +0200
@@ -134,6 +134,27 @@
     ^ globals at:aKey ifAbsent:exceptionValue
 !
 
+classNamed:aString
+    "return the class with name aString, or nil if absent.
+     To get to the metaClass, append ' class' to the string."
+
+    |cls sym meta|
+
+    "be careful, to not invent new symbols ..."
+    sym := aString asSymbol.
+    cls := self at:sym ifAbsent:[].
+    cls isBehavior ifTrue:[^ cls].
+
+    (aString endsWith:' class') ifTrue:[
+
+        meta := self classNamed:(aString copyWithoutLast:6).
+        meta notNil ifTrue:[
+            ^ meta class
+        ].
+    ].
+    ^ nil
+!
+
 keysAndValuesDo:aTwoArgBlock
     globals isNil ifTrue:[
         self fetchGlobals