--- a/Class.st	Sun Jan 16 11:28:01 2011 +0100
+++ b/Class.st	Tue Jan 18 18:05:51 2011 +0100
@@ -1082,9 +1082,9 @@
 poolDictionaries
     "this returns the concatenated pool name string"
 
-    ^ self sharedPools asStringWith:' '
-
-    "Modified: / 22-12-2010 / 18:42:19 / cg"
+    ^ self sharedPoolNames asStringWith:' '
+
+    "Modified: / 18-01-2011 / 17:56:12 / cg"
 !
 
 primitiveDefinitions:aString
@@ -1396,12 +1396,12 @@
     "Created: / 19-09-2006 / 22:02:06 / cg"
 !
 
-realSharedPools
+realSharedPoolNames
     "this returns the namespace aware pool names"
 
     |poolNames ns|
 
-    poolNames := self sharedPools.
+    poolNames := self sharedPoolNames.
     (ns := self topNameSpace) notNil ifTrue:[
         ^ poolNames 
                 collect:[:nm | 
@@ -1418,6 +1418,27 @@
      Croquet::OpenGL sharedPools
      Croquet::OpenGL realSharedPools
     "
+
+    "Created: / 18-01-2011 / 18:02:25 / cg"
+!
+
+realSharedPools
+    "this returns the namespace aware pools"
+
+    |ns|
+
+    ns := self topNameSpace.
+    ^ self sharedPoolNames collect:[:nm | ns at:nm]
+
+    "
+     Croquet::OpenGL sharedPools
+     Croquet::OpenGL realSharedPools
+
+     Win32OperatingSystem realSharedPools
+     Win32OperatingSystem realSharedPoolNames
+    "
+
+    "Modified: / 18-01-2011 / 18:05:19 / cg"
 !
 
 removeClassVarName:aString
@@ -1524,8 +1545,8 @@
     "Modified: / 09-08-2006 / 17:59:13 / fm"
 !
 
-sharedPools
-    "this returns the plain (non-namespace aware) pool names"
+sharedPoolNames
+    "this returns a collection of the plain (non-namespace aware) pool names"
 
     |pools|
 
@@ -1543,12 +1564,13 @@
      Croquet::OpenGL sharedPools
      OpenGLRenderingContext sharedPools  
      Character sharedPools    
+     Win32OperatingSystem sharedPools    
     "
 
-    "Modified: / 22-12-2010 / 18:39:12 / cg"
-!
-
-sharedPools:aStringOrCollection
+    "Created: / 18-01-2011 / 17:55:42 / cg"
+!
+
+sharedPoolNames:aStringOrCollection
     "{ Pragma: +optSpace }"
 
     "set the sharedPools string (no change notifications)"
@@ -1556,7 +1578,34 @@
     self setSharedPools:aStringOrCollection.
     self addChangeRecordForClass:self.
 
-    "Modified: / 06-10-2006 / 13:35:14 / cg"
+    "Created: / 18-01-2011 / 17:55:48 / cg"
+!
+
+sharedPools
+    "this returns a collection of the plain (non-namespace aware) pool names.
+     WARNING: this will soon cahnge to return the real pools (i.e. the PoolDictionaries)"
+
+    ^ self sharedPoolNames
+
+    "
+     Croquet::OpenGL sharedPools
+     OpenGLRenderingContext sharedPools  
+     Character sharedPools    
+     Win32OperatingSystem sharedPools    
+    "
+
+    "Modified: / 18-01-2011 / 18:01:39 / cg"
+!
+
+sharedPools:aStringOrCollection
+    "{ Pragma: +optSpace }"
+
+    "set the sharedPools string (no change notifications).
+     WARNING: this will soon cahnge to expect the real pools (i.e. the PoolDictionaries)"
+
+    self sharedPoolNames:aStringOrCollection.
+
+    "Modified: / 18-01-2011 / 18:01:58 / cg"
 !
 
 source
@@ -3253,7 +3302,9 @@
 printSharedPoolNamesOn:aStream indent:indent
     "print the pool names indented and breaking at line end"
 
-    self printNameArray:(self sharedPools) on:aStream indent:indent
+    self printNameArray:(self sharedPoolNames) on:aStream indent:indent
+
+    "Modified: / 18-01-2011 / 17:56:16 / cg"
 !
 
 storeOn:aStream
@@ -5097,9 +5148,9 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.577 2011-01-15 13:19:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.578 2011-01-18 17:05:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.577 2011-01-15 13:19:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.578 2011-01-18 17:05:51 cg Exp $'
 ! !