--- a/Tools__NewSystemBrowser.st	Mon Dec 30 12:46:55 2019 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Dec 30 13:05:09 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -49430,7 +49432,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.
 
@@ -49657,7 +49659,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.
     ].
 
@@ -54267,7 +54269,7 @@
                 "/ chg changeClass theNonMetaclass name allBold
                 cls := chg changeClass.
                 cls isNil ifTrue:[
-                    lbl := chg className asText allStrikedOut.
+                    lbl := chg fullClassName asText allStrikedOut.
                 ] ifFalse:[
                     lbl := cls theNonMetaclass name "allBold"
                 ].    
@@ -54396,9 +54398,16 @@
             itemClass:[:chg | chg changeClass]
             itemSelector:[:chg | chg selector]
             label:[:chg | 
-                |lbl|
-                "/ lbl := chg printString
-                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
+                |lbl nameShown shortName|
+
+                nameShown := chg fullClassName.
+                shortName := chg className. 
+                nameShown ~= shortName ifTrue:[
+                    (Smalltalk classNamed:(shortName)) isNil ifTrue:[
+                        nameShown := shortName 
+                    ]
+                ].
+                lbl := (nameShown ? '???') , ' » ' , (chg selector  ? '???') allBold.
                 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[
                     lbl := lbl asText allStrikedOut,' ','(removed)' allItalic.
                 ].