--- a/Tools__ViewTreeApplication.st	Tue Jan 16 22:33:10 2018 +0100
+++ b/Tools__ViewTreeApplication.st	Thu Jan 18 17:03:09 2018 +0100
@@ -2284,21 +2284,21 @@
     firstFound := nil.
 
     anItem recursiveDo:[:el|
-	el == startItem ifTrue:[
-	    searchNext := false
-	] ifFalse:[
-	    (aBlock value:el) ifTrue:[
-		searchNext ifFalse:[^ model selectItem:el].
-
-		firstFound isNil ifTrue:[
-		    firstFound := el
-		]
-	    ]
-	]
+        el == startItem ifTrue:[
+            searchNext := false
+        ] ifFalse:[
+            (aBlock value:el) ifTrue:[
+                searchNext ifFalse:[^ model selectItem:el].
+
+                firstFound isNil ifTrue:[
+                    firstFound := el
+                ]
+            ]
+        ]
     ].
     firstFound notNil ifTrue:[
-	self window beep.
-	model selectItem:firstFound
+        self beepInEditor.
+        model selectItem:firstFound
     ].
 !