--- a/DoWhatIMeanSupport.st	Mon Sep 02 11:01:42 2013 +0200
+++ b/DoWhatIMeanSupport.st	Tue Sep 03 02:56:10 2013 +0200
@@ -2328,7 +2328,7 @@
         ]
     ] ifFalse:[
         "/ locals in the block/method
-        names := node allVariablesOnScope.
+        names := OrderedCollection withAll:node allVariablesOnScope.
 
         (names isEmpty or:[rememberedScopeNodes notNil]) ifTrue:[
 "/            "/ if there were no variables (due to a parse error)
@@ -2373,7 +2373,7 @@
             |names responders nonResponders|
 
             "/ responding to that messsage
-self halt.
+"/ self halt.
             classOrNil notNil ifTrue:[
                 "/ private classes
                 addWithFactorBlock value:(nonMetaClass privateClasses collect:[:cls | cls nameWithoutPrefix])
@@ -3722,10 +3722,10 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.136 2013-09-02 09:01:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.137 2013-09-03 00:56:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.136 2013-09-02 09:01:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.137 2013-09-03 00:56:10 cg Exp $'
 ! !