--- a/DoWhatIMeanSupport.st	Mon Jan 17 17:54:56 2011 +0100
+++ b/DoWhatIMeanSupport.st	Tue Jan 18 18:07:24 2011 +0100
@@ -784,7 +784,7 @@
             ].
 
             "/ pool variables
-            cls theNonMetaclass sharedPools do:[:poolName |
+            cls theNonMetaclass sharedPoolNames do:[:poolName |
                 |pool names|
 
                 pool := Smalltalk at:poolName.
@@ -849,7 +849,7 @@
     ].
 
     "Created: / 10-11-2006 / 13:16:33 / cg"
-    "Modified: / 16-11-2006 / 14:15:59 / cg"
+    "Modified: / 18-01-2011 / 17:57:43 / cg"
 !
 
 findNodeForInterval:interval in:source
@@ -1956,9 +1956,9 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.75 2010-10-26 18:34:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.76 2011-01-18 17:07:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.75 2010-10-26 18:34:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.76 2011-01-18 17:07:24 cg Exp $'
 ! !