--- a/Class.st	Tue Apr 16 14:46:35 2013 +0200
+++ b/Class.st	Tue Apr 16 17:57:21 2013 +0200
@@ -772,6 +772,14 @@
     "Modified: / 22-10-2008 / 20:58:21 / cg"
 !
 
+classNamed:aClassNameStringOrSymbol
+    "return a private class if present; nil otherwise.
+     Added for protocol compatibilty with NameSpace and Smalltalk"
+
+    "{ Pragma: +optSpace }"
+    ^ self privateClassesAt:aClassNameStringOrSymbol
+!
+
 classVarAt:aSymbol
     "return the value of a class variable.
      Currently, this returns nil if there is no such classvar -
@@ -1567,16 +1575,17 @@
         ^ #().
     ].
     pools isString ifTrue:[
-        pools := (pools asCollectionOfWords collect:[:varName| varName asSymbol]) asArray.
+        pools := (pools asCollectionOfWords collect:[:varName| varName asSymbol]) as:Array.
         self setAttribute:#sharedPools to:pools.
     ].
     ^ pools
 
     "
-     Croquet::OpenGL sharedPools
-     OpenGLRenderingContext sharedPools
-     Character sharedPools
-     Win32OperatingSystem sharedPools
+     OSI::ASN1_Coder sharedPoolNames
+     Croquet::OpenGL sharedPoolNames
+     OpenGLRenderingContext sharedPoolNames
+     Character sharedPoolNames
+     Win32OperatingSystem sharedPoolNames
     "
 
     "Created: / 18-01-2011 / 17:55:42 / cg"
@@ -1608,30 +1617,29 @@
                     |pool|
 
                     ns ~= Smalltalk ifTrue:[
-                        ns isNameSpace ifTrue:[
-                            pool := ns at:eachName asSymbol.
-                        ] ifFalse:[
-                            pool := ns privateClassesAt:eachName asSymbol.
-                        ]
+                        pool := ns classNamed:eachName.
                     ].
                     pool isNil ifTrue:[
                         ns2 ~= Smalltalk ifTrue:[
-                            pool := ns2 at:eachName asSymbol.
+                            pool := ns2 classNamed:eachName.
                         ].
                     ].
                     pool isNil ifTrue:[
-                        pool := Smalltalk at:eachName asSymbol.
+                        pool := Smalltalk classNamed:eachName.
                         pool isNil ifTrue:[
                             Transcript showCR:('Warning: no such pool: ',eachName).
                         ]
                     ].
                     pool
                 ]
-            as:OrderedCollection.
-
-    ^ pools select:[:pool | pool notNil ]
+            thenSelect:[:pool | pool notNil].
+
+    ^ pools.
+
 
     "
+     OSI::ASN1_Coder sharedPoolNames
+     OSI::ASN1_Coder sharedPools
      Croquet::OpenGL sharedPools
      OpenGLRenderingContext sharedPools
      Character sharedPools
@@ -5522,11 +5530,11 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.621 2013-04-08 10:47:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.622 2013-04-16 15:57:21 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.621 2013-04-08 10:47:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.622 2013-04-16 15:57:21 stefan Exp $'
 !
 
 version_SVN