--- a/BrowserView.st	Thu Jan 18 17:10:42 2018 +0100
+++ b/BrowserView.st	Thu Jan 18 17:11:46 2018 +0100
@@ -2455,7 +2455,7 @@
         what := Smalltalk classnameCompletion:s inEnvironment:(environment ? Smalltalk).
         box contents:what first.
         (what at:2) size ~~ 1 ifTrue:[
-            self beep
+            self beepInEditor
         ]
     ].
     box action:[:aString | className := aString].
@@ -2516,7 +2516,7 @@
                 box list:matching.
                 box contents:longest.
                 matching size ~~ 1 ifTrue:[
-                    self beep
+                    self beepInEditor
                 ]
             ]
         ]
@@ -3607,7 +3607,7 @@
                 box list:(names := l collect:[:aClass | aClass name]) asSortedCollection.
                 box contents:(names longestCommonPrefix). "/ l first name.
                 l size ~~ 1 ifTrue:[
-                    self beep
+                    self beepInEditor
                 ]
             ]
         ].
@@ -10859,7 +10859,7 @@
             ^ self.
         ]
     ].
-    self beep
+    self beepInEditor
 
     "Modified: 17.6.1996 / 16:52:36 / stefan"
     "Modified: 8.10.1996 / 22:06:01 / cg"
@@ -10878,7 +10878,7 @@
     selectorString := aString withoutSpaces upTo:(Character space).
     selectorSymbol := selectorString asSymbolIfInterned.
     selectorSymbol isNil ifTrue:[
-        self beep.
+        self beepInEditor.
         ^ self
     ].
 
@@ -10967,7 +10967,7 @@
             ^ self
         ]
     ].
-    self beep.
+    self beepInEditor.
 
     "Modified: / 28.6.1996 / 20:28:56 / stefan"
     "Modified: / 27.7.1998 / 11:01:55 / cg"
@@ -11805,7 +11805,7 @@
             what := Smalltalk selectorCompletion:s inEnvironment:(environment ? Smalltalk).
             inputField contents:what first.
             (what at:2) size ~~ 1 ifTrue:[
-                self beep
+                self beepInEditor
             ]
         ]
     ].