--- a/DoWhatIMeanSupport.st	Mon May 11 10:50:56 2009 +0200
+++ b/DoWhatIMeanSupport.st	Tue May 12 09:44:34 2009 +0200
@@ -1241,7 +1241,9 @@
           ].
           field contents:(what first).
           (what at:2) size ~~ 1 ifTrue:[
-              field device beep
+              UserPreferences current beepInEditor ifTrue:[                
+                field device beep
+              ]
           ]
       ].
 
@@ -1789,5 +1791,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.53 2009-04-27 12:10:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.54 2009-05-12 07:44:34 cg Exp $'
 ! !