--- a/WindowGroup.st	Mon Sep 17 11:36:13 2007 +0200
+++ b/WindowGroup.st	Mon Sep 17 11:39:09 2007 +0200
@@ -1141,12 +1141,13 @@
         "/  which suspends and waits - or we had to add buffer flushes
         "/  all over the place)
         "/
-        myProcess addSuspendAction:[ 
-            |dev|
-
-            dev := self graphicsDevice.
-            dev notNil ifTrue:[dev flush].
-        ].
+        myProcess 
+            addSuspendAction:[ 
+                |dev|
+
+                dev := self graphicsDevice.
+                dev notNil ifTrue:[dev flush].
+            ].
 
         "/ allow for the currently active application,
         "/ to hook on new-application process creation.
@@ -1158,9 +1159,9 @@
         myProcess resume.
     ]
 
-    "Modified: / 13.12.1995 / 14:04:53 / stefan"
-    "Created: / 24.7.1997 / 12:52:04 / cg"
-    "Modified: / 4.12.1997 / 14:13:35 / cg"
+    "Modified: / 13-12-1995 / 14:04:53 / stefan"
+    "Created: / 24-07-1997 / 12:52:04 / cg"
+    "Modified: / 17-09-2007 / 10:59:34 / cg"
 ! !
 
 !WindowGroup methodsFor:'enumerating'!
@@ -2687,7 +2688,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.286 2007-03-02 17:12:41 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.287 2007-09-17 09:39:09 cg Exp $'
 ! !
 
 WindowGroup initialize!