--- a/ApplicationModel.st	Tue Jan 16 22:14:21 2018 +0100
+++ b/ApplicationModel.st	Thu Jan 18 17:01:22 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -4084,6 +4082,14 @@
     ].
 !
 
+beepInEditor
+    "output an audible beep or bell on my screen device"
+
+    device notNil ifTrue:[
+        device beepInEditor.
+    ].
+!
+
 information:aString
     "like Object's information, but translates the string via the
      resourcePack, thus giving a translated string automatically"