--- a/Tools__StringSearchTool.st	Thu Jan 18 17:03:21 2018 +0100
+++ b/Tools__StringSearchTool.st	Thu Jan 18 17:03:23 2018 +0100
@@ -649,9 +649,10 @@
 
 searchNextTextReachEnd
     |message|
+
     message := (resources string: 'End of text reached').
     self searchTextRestarted: message.
-    Smalltalk beep.
+    self beepInEditor.
 
     self restartSearch ifTrue:[
         message := message, (resources string: ', starting from the beginning').
@@ -665,7 +666,7 @@
 
     message := (resources string: 'Beginning of text reached').
     self searchTextRestarted: message.
-    Smalltalk beep.
+    self beepInEditor.
 
     self restartSearch ifTrue:[
         message := message, (resources string: ', starting from the end').