# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1317630636 -7200
# Node ID 4c3376c7dcb76a3db8dec7483b263503004515d3
# Parent  c498dfaf0900bd820e9ea2d9390307e51250e0bc
changed:
        #realSharedPoolNames
        #sharedPools:

diff -r c498dfaf0900 -r 4c3376c7dcb7 Class.st
--- a/Class.st	Mon Oct 03 10:30:04 2011 +0200
+++ b/Class.st	Mon Oct 03 10:30:36 2011 +0200
@@ -1438,14 +1438,14 @@
 
     poolNames := self sharedPoolNames.
     (ns := self topNameSpace) notNil ifTrue:[
-	^ poolNames
-		collect:[:nm |
-		    |p|
-		    (p := ns at:nm) notNil ifTrue:[
-			p name
-		    ] ifFalse:[
-			nm
-		    ]].
+        ^ poolNames
+                collect:[:nm |
+                    |p|
+                    (p := ns at:nm asSymbol) notNil ifTrue:[
+                        p name
+                    ] ifFalse:[
+                        nm
+                    ]].
     ].
     ^ poolNames
 
@@ -1641,7 +1641,7 @@
     "/ for backward compatibility..
     aCollection isString ifTrue:[
         Transcript showCR:'warning: string passed to sharedPools:'.
-        self sharedPoolNames:(aCollection asCollectionOfWords).
+        self sharedPoolNames:(aCollection asCollectionOfWords collect:[:each | each asSymbol]).
         ^ self.
     ].
     self sharedPoolNames:
@@ -1653,7 +1653,7 @@
             ]
         ).
 
-    "Modified: / 03-10-2011 / 10:28:05 / cg"
+    "Modified: / 03-10-2011 / 10:30:30 / cg"
 !
 
 source
@@ -5436,11 +5436,11 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.597 2011-10-03 08:28:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.598 2011-10-03 08:30:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.597 2011-10-03 08:28:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.598 2011-10-03 08:30:36 cg Exp $'
 !
 
 version_SVN