--- a/Tools__NewSystemBrowser.st	Sun Jan 05 17:23:19 2020 +0100
+++ b/Tools__NewSystemBrowser.st	Sun Jan 05 17:23:41 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -29489,7 +29487,7 @@
             ].
 
             aStream close.
-        ] on:FileStream openErrorSignal do:[
+        ] on:OpenError do:[
             self warn:'Cannot create: %1' with:fileName allBold
         ].
     ].
@@ -48816,7 +48814,7 @@
                 ].
                 [
                     aStream := fileName newReadWriteStream.
-                ] on:FileStream openErrorSignal do:[:ex|
+                ] on:OpenError do:[:ex|
                     ^ self warn:('Cannot create file:', fileName name)
                 ].
 
@@ -49422,7 +49420,7 @@
     dummyChangeSet := ChangeSet new addAll:previousMethods; yourself.
     dummyChangeSet reverse.  "/ youngest first.
     browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet.
-    browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
+    browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
     browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[].
     browser readOnly:true.
 
@@ -49649,7 +49647,7 @@
 
         self activityNotification:nil.
         browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods.
-        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
+        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
         browser readOnly:true.
     ].
 
@@ -54397,7 +54395,7 @@
                         nameShown := shortName 
                     ]
                 ].
-                lbl := (nameShown ? '???') , ' » ' , (chg selector  ? '???') allBold.
+                lbl := (nameShown ? '???') , ' » ' , (chg selector  ? '???') allBold.
                 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[
                     lbl := lbl asText allStrikedOut,' ','(removed)' allItalic.
                 ].