--- a/Tools__NewSystemBrowser.st	Sun Jan 05 17:29:06 2020 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Jan 06 16:45:57 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -27134,8 +27136,8 @@
             ] ifTrue:[    
                 Transcript showCR:'       %1' with:cls name.
 
-                copyright := ((cls theMetaclass sourceCodeAt:#copyright) ? '') asStringCollection.
-                line := copyright detect:[:l | (l includesString:'Copyright' caseSensitive:false)
+                copyright := (cls theMetaclass sourceCodeAt:#copyright) ? ''.
+                line := copyright asStringCollection detect:[:l | (l includesString:'Copyright' caseSensitive:false)
                                                and:[l includesAny:'0123456789']
                                          ]
                                   ifNone:nil.
@@ -27146,7 +27148,9 @@
                             'Manchester Goodie' 
                             'Public domain' 
                             'provided AS IS' 
-                            'provided free of charge' 
+                            'provided free of charge'
+                            'not part of the ST/X licence'
+                            'Copyleft'
                          ) contains:[:fragment | (copyright includesString:fragment caseSensitive:false)]
                      ) ifFalse:[
                         invalid add:cls
@@ -27174,7 +27178,7 @@
         ].
     ].
 
-    noCopyright notEmpty ifTrue:[ self spawnClassBrowserFor:noCopyright label:'No copyright' in:#newBuffer. ]
+    noCopyright notEmpty ifTrue:[ self spawnClassBrowserFor:noCopyright label:'No copyright' in:#newBuffer ].
     copyrightOlder notEmpty ifTrue:[ self spawnClassBrowserFor:copyrightOlder label:'Older copyright' in:#newBuffer ].
     copyrightYounger notEmpty ifTrue:[ self spawnClassBrowserFor:copyrightYounger label:'Younger copyright' in:#newBuffer ].
     invalid notEmpty ifTrue:[ self spawnClassBrowserFor:invalid label:'Invalid copyright' in:#newBuffer ].
@@ -27182,6 +27186,8 @@
 "/    noCopyright inspect.
 "/    wrongCopyright inspect.
 "/    invalid inspect.
+
+    "Modified: / 06-01-2020 / 16:13:21 / Stefan Vogel"
 !
 
 browseMenuClassesWithNameMatching
@@ -49420,7 +49426,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.
 
@@ -49647,7 +49653,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.
     ].
 
@@ -54395,7 +54401,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.
                 ].    
@@ -62130,7 +62136,6 @@
     ^ selectorCompletion
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass