--- a/Tools__NewSystemBrowser.st	Sun May 20 10:52:51 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Sun May 20 10:56:08 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -36235,6 +36237,8 @@
 
     doChecks := (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true).
     doChecks := doChecks asValue.
+    self window sensor shiftDown ifTrue:[ doChecks := false ].
+    
     self classMenuCheckIn:doChecks usingManager:aManagerOrNil.
     doChecks value ~~ (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ifTrue:[
         UserPreferences current at:#checkClassesWhenCheckingIn put:doChecks value
@@ -48209,6 +48213,8 @@
     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 perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[].
     browser readOnly:true.
 
     "Modified: / 13-06-2011 / 11:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -48434,7 +48440,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.
     ].
 
@@ -53050,7 +53056,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.
                 ].    
@@ -60580,7 +60586,6 @@
     ^ selectorCompletion
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass