--- a/AbstractLauncherApplication.st	Thu May 06 14:17:34 1999 +0200
+++ b/AbstractLauncherApplication.st	Thu May 06 16:12:33 1999 +0200
@@ -1004,13 +1004,14 @@
 !AbstractLauncherApplication methodsFor:'user actions - windows'!
 
 deIconifyAllWindows
-    |setOfViews|
+    |setOfViews currentScreen|
 
     setOfViews := Project current views asIdentitySet.
     setOfViews addAll:(Project defaultProject views).
 
+    currentScreen := Screen current.
     setOfViews do:[:aTopView |
-        aTopView device == Screen current ifTrue:[
+        aTopView device == currentScreen ifTrue:[
             aTopView expand
         ].
     ].
@@ -4329,5 +4330,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.25 1999-04-23 09:39:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.26 1999-05-06 14:12:33 cg Exp $'
 ! !