--- a/DoWhatIMeanSupport.st	Wed Jun 24 15:49:20 2009 +0200
+++ b/DoWhatIMeanSupport.st	Wed Jun 24 17:28:15 2009 +0200
@@ -717,7 +717,7 @@
             ].
             "/ globals
             names := Smalltalk keys.
-            names := names reject:[:nm | nm includes:$:].
+            "/ names := names reject:[:nm | nm includes:$:].
             names := names select:[:nm | nm isUppercaseFirst ].
             responders := names select:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]].
             nonResponders := names reject:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]].
@@ -1791,5 +1791,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.54 2009-05-12 07:44:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.55 2009-06-24 15:28:15 cg Exp $'
 ! !