--- a/ColorEditDialog.st	Tue May 12 09:43:46 2009 +0200
+++ b/ColorEditDialog.st	Tue May 12 09:43:51 2009 +0200
@@ -697,7 +697,9 @@
 
     copyBufferColor := self window getClipboardObject.
     copyBufferColor isColor ifFalse:[
-        self window beep.
+        UserPreferences current beepInEditor ifTrue:[                
+            self window beep.
+        ].
         ^ self
     ].
     self color:copyBufferColor