--- a/ProgressIndicator.st	Wed Sep 27 09:41:59 2000 +0200
+++ b/ProgressIndicator.st	Thu Sep 28 04:18:12 2000 +0200
@@ -583,6 +583,7 @@
     p model:ra.
 
     p topView openModeless.
+    p topView waitUntilVisible.
     ^ p.
 
     "Modified: / 4.2.2000 / 01:25:55 / cg"
@@ -997,5 +998,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.34 2000-09-25 21:52:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.35 2000-09-28 02:18:12 cg Exp $'
 ! !