--- a/XWorkstation.st	Thu Jan 18 17:17:33 2018 +0100
+++ b/XWorkstation.st	Thu Jan 18 17:19:06 2018 +0100
@@ -10118,7 +10118,8 @@
     "output an audible beep or bell"
 
     UserPreferences current beepEnabled ifTrue:[
-	self beep:0 volume:50
+        self beep:0 volume:50.
+        self flush
     ]
 
     "