--- a/Tools__NewSystemBrowser.st	Thu Jun 27 12:39:04 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Jun 27 13:11:44 2019 +0200
@@ -54042,17 +54042,9 @@
     ^ [
         |m allLanguages|
 
-        allLanguages := OrderedCollection new.
-        ProgrammingLanguage allDo:[:eachLanguage |
-            (
-                {   SmalltalkLanguage .
-                    STXJavaScriptLanguage .
-                } includes:eachLanguage class
-            ) ifFalse:[
-                allLanguages add:eachLanguage
-            ]
-        ].
-        allLanguages sort:[:a :b | a name < b name].
+        allLanguages := ProgrammingLanguage allSortedByNameExcept:[:lang | 
+                            (lang class = SmalltalkLanguage)
+                            or:[lang class = STXJavaScriptLanguage]].
 
         m := Menu new.
         allLanguages do:[:eachLanguage |
@@ -54068,6 +54060,7 @@
     "Created: / 21-08-2012 / 17:01:41 / cg"
     "Modified: / 02-04-2013 / 23:44:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 29-03-2017 / 13:03:32 / stefan"
+    "Modified: / 27-06-2019 / 12:36:19 / Claus Gittinger"
 !
 
 classSCMMenu
@@ -55141,13 +55134,7 @@
         currentLanguage := nil."/unknown
     ].
 
-    allLanguages := OrderedCollection new.
-    ProgrammingLanguage allDo:[:eachLanguage |
-        eachLanguage isSmalltalk ifFalse:[
-            allLanguages add:eachLanguage
-        ]
-    ].
-    allLanguages sort:[:a :b | a name < b name].
+    allLanguages := ProgrammingLanguage allSortedByNameExcept:#isSmalltalk.
 
     m := Menu new.
     m addItem:(MenuItem
@@ -55168,6 +55155,7 @@
     "Modified: / 17-02-2012 / 22:15:06 / cg"
     "Modified: / 10-05-2012 / 20:32:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 29-03-2017 / 13:03:42 / stefan"
+    "Modified: / 27-06-2019 / 12:31:56 / Claus Gittinger"
 !
 
 sentMessagesMenu