--- a/Tools__ChangeSetBrowser2.st	Thu Dec 13 14:31:51 2012 +0000
+++ b/Tools__ChangeSetBrowser2.st	Mon Jan 14 11:48:37 2013 +0000
@@ -2337,7 +2337,9 @@
 
     "Created: / 07-09-2011 / 15:54:03 / cg"
     "Created: / 11-02-2012 / 22:40:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
+!
+
+ !
 
 !ChangeSetBrowser2 methodsFor:'aspects-queries'!
 
@@ -3302,15 +3304,15 @@
 
     changesThatFailToApply := ChangeSet new.
     ProgressIndicator
-	displayProgress:'Applying changes...'
-	at:(Screen default center)
-	from:200 to:400
-	during:[:val |
-	    1 to: changesToApply size do:
-		[:i|
-		val value:((100 / changesToApply size) * i) rounded.
-		[self changeMenuApplyChange: (changesToApply at: i)]
-		    on: Error do:[changesThatFailToApply add: (changesToApply at: i)]]]
+        displayProgress:'Applying changes...'
+        at:(Screen default centerOfMonitorHavingPointer)
+        from:200 to:400
+        during:[:val |
+            1 to: changesToApply size do:
+                [:i|
+                val value:((100 / changesToApply size) * i) rounded.
+                [self changeMenuApplyChange: (changesToApply at: i)]
+                    on: Error do:[changesThatFailToApply add: (changesToApply at: i)]]]
 
     "Created: / 04-08-2011 / 17:26:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -3783,13 +3785,13 @@
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__ChangeSetBrowser2.st 8078 2012-12-05 11:42:11Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.43 2012/12/14 09:09:51 stefan Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.42 2012/09/10 12:42:37 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.43 2012/12/14 09:09:51 stefan Exp §'
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeSetBrowser2.st 8078 2012-12-05 11:42:11Z vranyj1 $'
+    ^ '$Id: Tools__ChangeSetBrowser2.st 8083 2013-01-14 11:48:37Z vranyj1 $'
 ! !