--- a/ResourceSelectionBrowser.st	Thu Jan 18 17:09:06 2018 +0100
+++ b/ResourceSelectionBrowser.st	Thu Jan 18 17:12:12 2018 +0100
@@ -977,7 +977,7 @@
                 what := Smalltalk classnameCompletion:s inEnvironment:Smalltalk.
                 classNameInputField contents:what first.
                 (what at:2) size ~~ 1 ifTrue:[
-                    classNameInputField device beep
+                    classNameInputField device beepInEditor
                 ]
 "/                |what oldClassName|
 "/                oldClassName := classNameInputField contents.