--- a/WorkspaceApplication.st	Wed May 01 12:58:41 2013 +0200
+++ b/WorkspaceApplication.st	Wed May 01 13:14:09 2013 +0200
@@ -3343,18 +3343,19 @@
             ].
 
             l label:'TEA is ready !!'.
+            self window topView raiseDeiconified.
             "/ could have been removed in the meantime....
             (wg := confirmButton windowGroup) notNil ifTrue:[
                 confirmButton beVisible.
                 wg repairDamage.
 
                 [ confirmed ] whileFalse:[
+                    self window topView raiseDeiconified.
                     3 timesRepeat:[ l beep. Delay waitForSeconds:0.4 ].
                     Delay waitForSeconds:5.
                 ].
 
                 l viewBackground:Color green.
-                l topView raiseDeiconified.
             ].
         ]
     ] fork.
@@ -4025,11 +4026,11 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.240 2013-04-25 08:34:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.241 2013-05-01 11:14:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.240 2013-04-25 08:34:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.241 2013-05-01 11:14:09 cg Exp $'
 !
 
 version_SVN