--- a/ChangesBrowser.st	Fri Jul 27 09:53:54 2012 +0200
+++ b/ChangesBrowser.st	Fri Jul 27 09:56:36 2012 +0200
@@ -2333,14 +2333,14 @@
 
         fileName notNil ifTrue:[
             lastSaveFileName := fileName.
-            self withCursor:(Cursor write) do:[
+            self withWriteCursorDo:[
                 self appendChange:changeNr toFile:fileName.
             ].
             self autoSelect:(changeNr + 1)
         ].
     ]
 
-    "Modified: / 27-10-2010 / 11:30:07 / cg"
+    "Modified: / 27-07-2012 / 09:46:14 / cg"
 !
 
 doSaveClass
@@ -2407,7 +2407,7 @@
 
     fileName notNil ifTrue:[
         lastSaveFileName := fileName.
-        self withCursor:(Cursor write) do:[
+        self withWriteCursorDo:[
             changeNr to:(self numberOfChanges) do:[:changeNr |
                 changeListView setSelection:changeNr.
                 (self appendChange:changeNr toFile:fileName) ifFalse:[
@@ -2417,7 +2417,7 @@
         ]
     ]
 
-    "Modified: / 27-10-2010 / 11:30:37 / cg"
+    "Modified: / 27-07-2012 / 09:46:09 / cg"
 !
 
 doUpdate
@@ -4208,7 +4208,7 @@
             inStream := EncodedStream stream:inStream encoder:decoder.
         ].
 
-        self withCursor:(Cursor write) do:[
+        self withWriteCursorDo:[
             |excla sawExcla done first chunk
              nChanges "{Class:SmallInteger}" |
 
@@ -4281,7 +4281,7 @@
     ^ true
 
     "Modified: / 02-12-1996 / 22:29:15 / stefan"
-    "Modified: / 03-02-2012 / 11:01:20 / cg"
+    "Modified: / 27-07-2012 / 09:46:00 / cg"
 ! !
 
 !ChangesBrowser methodsFor:'private-user interaction ops'!
@@ -5753,7 +5753,7 @@
 
         fileName notNil ifTrue:[
             lastSaveFileName := fileName.
-            self withCursor:(Cursor write) do:[
+            self withWriteCursorDo:[
                 startNr to:(self numberOfChanges) do:[:changeNr |
                     |thisClassName|
 
@@ -5769,7 +5769,7 @@
         ].
     ]
 
-    "Modified: / 27-10-2010 / 11:31:06 / cg"
+    "Modified: / 27-07-2012 / 09:46:04 / cg"
 !
 
 selectionChanged
@@ -6450,9 +6450,9 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.430 2012-07-26 21:12:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.431 2012-07-27 07:56:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.430 2012-07-26 21:12:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.431 2012-07-27 07:56:36 cg Exp $'
 ! !