--- a/WorkspaceApplication.st	Wed Nov 22 13:23:25 2006 +0100
+++ b/WorkspaceApplication.st	Wed Nov 22 19:04:14 2006 +0100
@@ -959,11 +959,14 @@
                 l label:'Waiting ... [',remaining printString,' sec]'.
                 Delay waitForSeconds:1.
             ].
+            3 timesRepeat:[ l beep. Delay waitForSeconds:0.4 ].
             l label:'TEA is ready !!'.
             l viewBackground:Color green.
             l topView raiseDeiconified.
         ]
     ] fork.
+
+    "Modified: / 22-11-2006 / 19:04:00 / cg"
 !
 
 addWorkspaceVariable
@@ -1587,5 +1590,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.120 2006-10-25 13:03:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.121 2006-11-22 18:04:14 cg Exp $'
 ! !