--- a/DeviceWorkstation.st	Wed Jan 17 15:30:14 2018 +0100
+++ b/DeviceWorkstation.st	Thu Jan 18 16:32:58 2018 +0100
@@ -7283,6 +7283,19 @@
     "Modified: / 3.12.1999 / 17:13:52 / ps"
 !
 
+beepInEditor
+    "output an audible beep or bell, if enabled"
+
+    "{ Pragma: +optSpace }"
+
+    UserPreferences current beepInEditor ifTrue:[
+        self beep
+    ]
+
+    "Modified: / 13.1.1997 / 22:56:13 / cg"
+    "Modified: / 3.12.1999 / 17:13:52 / ps"
+!
+
 buffered
     "buffer drawing - do not send it immediately to the display.
      This is the default; see comment in #unBuffered."