--- a/NameSpace.st	Thu Mar 16 15:50:35 2006 +0100
+++ b/NameSpace.st	Thu Mar 16 16:57:40 2006 +0100
@@ -388,6 +388,20 @@
     "Modified: / 18.3.1999 / 17:21:06 / cg"
 !
 
+keys
+    "enumerate all class names in this namespace"
+
+    |setOfKeys|
+
+    setOfKeys := OrderedCollection new.
+    self keysDo:[:eachKey |setOfKeys add:eachKey].
+    ^ setOfKeys
+
+    "
+     Benchmarks keys
+    "
+!
+
 keysDo:aBlock
     "enumerate all class names in this namespace"
 
@@ -549,5 +563,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.56 2006-03-13 15:53:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.57 2006-03-16 15:57:40 cg Exp $'
 ! !