--- a/NameSpace.st	Sun Dec 19 12:59:59 2010 +0100
+++ b/NameSpace.st	Mon Dec 20 12:06:03 2010 +0100
@@ -452,6 +452,19 @@
     ].
 !
 
+keyAtValue:anObject
+    "return the symbol under which anObject is stored - or nil"
+
+    self keysDo:[:aKey |
+        (self at:aKey) == anObject ifTrue:[^ aKey]
+    ].
+    ^ nil
+
+    "Smalltalk keyAtValue:Object"
+
+    "Created: / 19-12-2010 / 14:35:49 / cg"
+!
+
 keys
     "enumerate all class names in this namespace"
 
@@ -638,9 +651,9 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.69 2009-12-03 10:42:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.70 2010-12-20 11:06:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.69 2009-12-03 10:42:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.70 2010-12-20 11:06:03 cg Exp $'
 ! !