--- a/Tools__NewSystemBrowserCodeView.st	Sun Oct 09 22:55:02 2016 +0100
+++ b/Tools__NewSystemBrowserCodeView.st	Tue Oct 18 22:55:22 2016 +0100
@@ -218,9 +218,8 @@
 !
 
 findNodeForInterval:anInterval
-
     "
-        An empty interval check based on Claus suggestion
+        An empty interval check based on Claus' suggestion
         (email Fri, 10 Oct 2008 16:10:25 +0200)
     "
     anInterval isEmpty ifTrue:[^nil].
@@ -233,27 +232,28 @@
 !
 
 findNodeIn:tree forInterval:interval 
-    |node wouldReturn|
-
-    node := nil.
-    tree = #error ifTrue:[^nil].
-    tree nodesDo:[:each | 
-        (each intersectsInterval:interval) ifTrue:[
-            (node isNil or:[node == each parent]) ifTrue:[
-                node := each
-            ] ifFalse:[
-                (node parent notNil 
-                    and:[node parent isCascade and:[each parent isCascade]]) ifFalse:[^ nil]
-            ]
-        ] ifFalse:[
-            node notNil ifTrue:[
-                "/ already found one - beyond that one; leave
-                wouldReturn notNil ifTrue:[wouldReturn := node].
-            ]
-        ].
-    ].
-(wouldReturn notNil and:[wouldReturn ~~ node]) ifTrue:[self halt].
-    ^ node
+    ^ DoWhatIMeanSupport findNodeIn:tree forInterval:interval
+"/    |node wouldReturn|
+"/
+"/    node := nil.
+"/    tree = #error ifTrue:[^nil].
+"/    tree nodesDo:[:each | 
+"/        (each intersectsInterval:interval) ifTrue:[
+"/            (node isNil or:[node == each parent]) ifTrue:[
+"/                node := each
+"/            ] ifFalse:[
+"/                (node parent notNil 
+"/                    and:[node parent isCascade and:[each parent isCascade]]) ifFalse:[^ nil]
+"/            ]
+"/        ] ifFalse:[
+"/            node notNil ifTrue:[
+"/                "/ already found one - beyond that one; leave
+"/                wouldReturn notNil ifTrue:[wouldReturn := node].
+"/            ]
+"/        ].
+"/    ].
+"/(wouldReturn notNil and:[wouldReturn ~~ node]) ifTrue:[self halt].
+"/    ^ node
 
     "Created: / 19-02-2008 / 09:40:24 / janfrog"
     "Modified: / 21-02-2008 / 09:35:31 / janfrog"