--- a/Tools__NewSystemBrowser.st	Wed Feb 06 16:46:53 2013 +0100
+++ b/Tools__NewSystemBrowser.st	Wed Feb 06 16:58:20 2013 +0100
@@ -33758,21 +33758,21 @@
 
     "/ find the highest numbered patchfile
     'stxPatches' asFilename directoryContentsDo:[:fn |
-	(fn includes:$_) ifTrue:[
-	    nrString := fn upTo:$_.
-	    nr := Integer readFrom:nrString onError:nil.
-	    nr notNil ifTrue:[
-		nr > (highest ? -1) ifTrue:[
-		    highest := nr.
-		    highestString := nrString.
-		]
-	    ].
-	].
+        (fn includes:$_) ifTrue:[
+            nrString := fn upTo:$_.
+            nr := Integer readFrom:nrString onError:nil.
+            nr notNil ifTrue:[
+                nr > (highest ? -1) ifTrue:[
+                    highest := nr.
+                    highestString := nrString.
+                ]
+            ].
+        ].
     ].
     highest isNil ifTrue:[
-	fileNamePrefix := '01'
-    ] ifFalse:[
-	fileNamePrefix := (highest+1) printStringLeftPaddedTo:(highestString size) with:$0.
+        fileNamePrefix := '01'
+    ] ifFalse:[
+        fileNamePrefix := (highest+1) printStringLeftPaddedTo:(highestString size) with:$0.
     ].
 
     Transcript showCR:'x'.
@@ -33780,30 +33780,31 @@
     changedClasses := changedClassesAndMetaclasses collect:[:clsOrMeta | clsOrMeta theNonMetaclass].
 
     changedClasses size == 1 ifTrue:[
-	fileNameMiddle := changedClasses first nameWithoutPrefix
-    ] ifFalse:[
-	fileNameMiddle := 'patches'
+        fileNameMiddle := changedClasses first nameWithoutPrefix
+    ] ifFalse:[
+        fileNameMiddle := 'patches'
     ].
     fileNameMiddle := fileNameMiddle asFilename makeLegalFilename name.
     fileName := (fileNamePrefix,'_',fileNameMiddle,'.st') asFilename.
 
     tempFile := Filename newTemporaryIn:'stxPatches'.
     tempFile writingFileDo:[:s |
-	|changeSet|
-
-	s nextPutLine:('"/ patches to bring %1 to version %2' bindWith:changedClasses first name with:thisRevString).
-	s nextPutLine:('"/').
-	s nextPutLine:('"/ first, a guard, to ignore the patch if the library already contains an up-to-date class:').
-	s nextPutLine:('"/').
-	changedClasses do:[:eachClass |
-	    s nextPutLine:('(AbstractSourceCodeManager isRevision:(%2 revision) sameOrAfter:''%1'') ifTrue:[ AbortSignal raise ].'
-				bindWith:eachClass revision
-				with:eachClass name).
-	].
-	s nextPutChunkSeparator; cr; cr.
-
-	changeSet := ChangeSet fromDiffSet:diffSet.
-	changeSet fileOutOn:s.
+        |changeSet|
+
+        s nextPutLine:('"/ patches to bring %1 to version %2' bindWith:changedClasses first name with:thisRevString).
+        s nextPutLine:('"/').
+        s nextPutLine:('"/ first, a guard, to ignore the patch if the library already contains an up-to-date class:').
+        s nextPutLine:('"/').
+        changedClasses do:[:eachClass |
+            s nextPutLine:('(AbstractSourceCodeManager isRevision:(%2 revision) sameOrAfter:''%1'') ifTrue:[ AbortSignal raise ].'
+                                bindWith:eachClass revision
+                                with:eachClass name).
+        ].
+        s nextPutChunkSeparator; cr; cr.
+
+        changeSet := ChangeSet fromDiffSet:diffSet.
+        changeSet fileOutOn:s.
+        s syncData.
     ].
 
     tempFile renameTo:('stxPatches' asFilename construct:fileName).
@@ -58141,11 +58142,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1834 2013-02-01 14:52:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1835 2013-02-06 15:58:20 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1834 2013-02-01 14:52:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1835 2013-02-06 15:58:20 stefan Exp $'
 !
 
 version_SVN