--- a/DoWhatIMeanSupport.st	Thu Jan 18 14:26:25 2018 +0100
+++ b/DoWhatIMeanSupport.st	Thu Jan 18 17:05:22 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
 	      All Rights Reserved
@@ -520,19 +518,17 @@
     "this block can be used in a dialog to perform className completion"
 
     ^ [:contents :field  |
-	  |s what m|
-
-	  s := contents withoutSpaces.
-	  field topView withCursor:(Cursor questionMark) do:[
-	      what := self perform:completionSelector with:s with:Smalltalk.
-	  ].
-
-	  field contents:(what first).
-	  (what at:2) size ~~ 1 ifTrue:[
-	      UserPreferences current beepInEditor ifTrue:[
-		field device beep
-	      ]
-	  ]
+          |s what m|
+
+          s := contents withoutSpaces.
+          field topView withCursor:(Cursor questionMark) do:[
+              what := self perform:completionSelector with:s with:Smalltalk.
+          ].
+
+          field contents:(what first).
+          (what at:2) size ~~ 1 ifTrue:[
+              field device beepInEditor
+          ]
       ].
 
     "Created: / 10-08-2006 / 13:21:37 / cg"
@@ -1500,7 +1496,7 @@
         classOfReceiver isNil ifTrue:[
             "/ it does not make sense to offer anything, if we don't have any idea of what this
             "/ will be...
-            Screen current beep.
+            Screen current beepInEditor.
         ] ifFalse:[
             |superClass possible choice|
 
@@ -2489,7 +2485,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 "/].
@@ -5178,7 +5174,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 
@@ -5277,7 +5273,7 @@
                     and:[node receiver isSelf]]) ifTrue:[
                         (impl := classOrNil whichClassImplements:best) isNil ifTrue:[
                             impls := #().
-                            Screen current beep.
+                            Screen current beepInEditor.
                         ] ifFalse:[
                             impls := { impl }
                         ]