--- a/Tools__NewSystemBrowser.st	Mon Apr 04 07:09:38 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Fri Apr 08 07:03:18 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -42183,12 +42181,15 @@
 
     self withActivityNotificationsRedirectedToInfoLabelDo:[
         defClass forEachFileNameAndGeneratedContentsDo:[:fileName :fileContents |
-            self showInfo:(resources string:'filing out %1...' with:fileName).
+            self showInfo:(resources string:'fileing out %1...' with:fileName).
             fullPathName := directory construct:fileName.
             fullPathName directory exists ifFalse:[
                 "take care for files like 'autopackage/default.apspec'"
                 fullPathName directory makeDirectory.
             ].
+            fullPathName exists ifTrue:[
+                fullPathName renameTo:(fullPathName pathName,'.sav') asFilename.
+            ].    
             fullPathName contents:fileContents.
         ].
     ].
@@ -51240,7 +51241,7 @@
             label:[:chg | 
                 |lbl|
                 "/ lbl := chg printString
-                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
+                lbl := (chg className ? '???') , '  ' , (chg selector  ? '???') allBold.
                 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[
                     lbl := lbl asText allStrikedOut,' ','(removed)' allItalic.
                 ].    
@@ -58484,6 +58485,7 @@
     "Created: / 04-12-2011 / 22:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass