--- a/Tools__NewSystemBrowser.st	Tue Jul 09 20:13:51 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Jul 09 20:50:50 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -27043,7 +27045,7 @@
         (cls theMetaclass includesSelector:#copyright) ifFalse:[
             noCopyright add:cls.
         ] ifTrue:[    
-Transcript showCR:('       %1' bindWith:cls name).
+            Transcript showCR:'       %1' with:cls name.
 
             copyright := ((cls theMetaclass sourceCodeAt:#copyright) ? '') asStringCollection.
             line := copyright detect:[:l | (l includesString:'Copyright' caseSensitive:false)
@@ -43153,7 +43155,7 @@
         Transcript topView raise.
     ].
     Transcript showCR:'*******************'.
-    Transcript showCR:('building in %1...' bindWith:projectBuilder buildDirectory pathName).
+    Transcript showCR:'building in %1...' with:projectBuilder buildDirectory pathName.
     
     "/ build
     projectBuilder buildWithColorizedOutputTo:Transcript.
@@ -49203,7 +49205,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.
 
@@ -49430,7 +49432,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.
     ].
 
@@ -54116,7 +54118,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.
                 ].