--- a/Tools__NewSystemBrowser.st	Sat Nov 17 00:40:25 2018 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Nov 19 15:39:17 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -36840,7 +36838,8 @@
 
     ^ self
         classMenuCheckIn:doCheck
-        classes:(ChangeSet current changedClasses)
+        classes:((ChangeSet current changedClasses reject:[:cls | cls isObsolete]) 
+                    collect:[:cls | Smalltalk at:cls theNonMetaclass name]) asSet        
         usingManager:aManagerOrNil
 
     "Created: / 21-12-2011 / 19:52:50 / cg"
@@ -48955,7 +48954,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.
 
@@ -49182,7 +49181,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.
     ].
 
@@ -53859,7 +53858,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.
                 ].