--- a/DoWhatIMeanSupport.st	Sun Oct 02 10:32:15 2011 +0200
+++ b/DoWhatIMeanSupport.st	Sun Oct 02 15:55:57 2011 +0200
@@ -847,7 +847,7 @@
                 ].
 
                 "/ pool variables
-                classOrNil theNonMetaclass sharedPools do:[:poolName |
+                classOrNil theNonMetaclass sharedPoolNames do:[:poolName |
                     |pool names|
 
                     pool := Smalltalk at:poolName.
@@ -914,7 +914,7 @@
 
     "Created: / 10-11-2006 / 13:16:33 / cg"
     "Modified: / 16-02-2010 / 10:13:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 05-07-2011 / 10:09:52 / cg"
+    "Modified: / 02-10-2011 / 11:42:39 / cg"
 !
 
 findNodeForInterval:interval in:source
@@ -2226,5 +2226,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.87 2011-09-16 12:55:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.88 2011-10-02 13:55:57 cg Exp $'
 ! !