--- a/Launcher.st	Mon Mar 03 14:12:02 1997 +0100
+++ b/Launcher.st	Mon Mar 03 14:16:11 1997 +0100
@@ -2882,23 +2882,22 @@
 !
 
 deIconifyAllWindows
-    (Array 
-        with:Project current
-        with:Project defaultProject
-    ) do:[:aProject |
-        aProject views do:[:aTopView |
-            aTopView device == Screen current ifTrue:[
-                aTopView expand
-            ].
+    |setOfViews|
+
+    setOfViews := Project current views asIdentitySet.
+    setOfViews addAll:(Project defaultProject views).
+
+    setOfViews do:[:aTopView |
+        aTopView device == Screen current ifTrue:[
+            aTopView expand
         ].
     ].
 
-
     "
      Transcript topView application deIconifyAllWindows
     "
 
-    "Modified: 3.3.1997 / 14:10:19 / cg"
+    "Modified: 3.3.1997 / 14:13:24 / cg"
 !
 
 findAndDestroyWindow
@@ -2962,19 +2961,19 @@
 !
 
 iconifyAllWindows
-    (Array 
-        with:Project current
-        with:Project defaultProject
-    ) do:[:aProject |
-        aProject views do:[:aTopView |
-            aTopView device == Screen current ifTrue:[
-                aTopView collapse
-            ]
+    |setOfViews|
+
+    setOfViews := Project current views asIdentitySet.
+    setOfViews addAll:(Project defaultProject views).
+
+    setOfViews do:[:aTopView |
+        aTopView device == Screen current ifTrue:[
+            aTopView collapse
         ]
     ]
 
     "Created: 1.3.1997 / 20:10:58 / cg"
-    "Modified: 3.3.1997 / 14:10:31 / cg"
+    "Modified: 3.3.1997 / 14:13:11 / cg"
 !
 
 removeAllBreakAndTracePoints
@@ -4624,5 +4623,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.255 1997-03-03 13:12:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.256 1997-03-03 13:16:11 cg Exp $'
 ! !