--- a/ProgressIndicator.st	Wed Jan 25 10:43:52 2012 +0100
+++ b/ProgressIndicator.st	Thu Feb 02 15:15:21 2012 +0100
@@ -637,6 +637,10 @@
             view:nil
             closeWhenDone:true.
 
+    aPoint notNil ifTrue:[
+        p topView origin:aPoint
+    ].
+
     p showBusyIndication:true.
     p showBusyIndicatorDuring:[
         CannotReturnError catch:[
@@ -1696,9 +1700,9 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.70 2012-01-08 11:02:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.71 2012-02-02 14:15:21 ab Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.70 2012-01-08 11:02:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.71 2012-02-02 14:15:21 ab Exp $'
 ! !