--- a/DoWhatIMeanSupport.st	Wed Dec 20 21:13:45 2017 +0100
+++ b/DoWhatIMeanSupport.st	Sat Dec 23 14:31:03 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
 	      All Rights Reserved
@@ -2487,7 +2489,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 "/].
@@ -4129,7 +4131,7 @@
                 nil
             ].
 
-        self debuggingCodeFor:#cg is:[
+        self debuggingCodeFor:#DWIM is:[
             Transcript show:'looking for: '; showCR:interval.
         ].
 
@@ -4144,14 +4146,14 @@
                 (node isMethod or:[node isBlock or:[node isSequence]]) ifTrue:[
                     currentScopeNodes add:node.
                 ] ifFalse:[
-"/                    self debuggingCodeFor:#cg is:[
-"/                        node isMessage ifTrue:[
-"/                            Transcript show:node; show:' '; show:node start; show:'->'; showCR:node stop.
-"/                        ].
-"/                    ].
+                    self debuggingCodeFor:#DWIM is:[
+                        node isMessage ifTrue:[
+                            Transcript show:node; show:' '; show:node start; show:'->'; showCR:node stop.
+                        ].
+                    ].
 
                     (node intersectsInterval:interval) ifTrue:[
-                        self debuggingCodeFor:#cg is:[
+                        self debuggingCodeFor:#DWIM is:[
                             Transcript showCR:'yes'.
                         ].
                         intersectingNodes add:node.
@@ -4223,7 +4225,7 @@
             ].
         ].
         lastIntersectingNode notNil ifTrue:[
-            self debuggingCodeFor:#cg is:[
+            self debuggingCodeFor:#DWIM is:[
                 Transcript show:'last: '; showCR:lastIntersectingNode.
             ].
             ^ lastIntersectingNode
@@ -4232,7 +4234,7 @@
     ].
 
     bestNode := self findNodeForInterval:interval inParseTree:tree.
-    self debuggingCodeFor:#cg is:[
+    self debuggingCodeFor:#DWIM is:[
         Transcript show:'best: '; showCR:bestNode.
     ].
     ^ bestNode
@@ -5176,7 +5178,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.