--- a/AbstractSourceCodeManager.st	Mon Dec 09 15:05:40 2019 +0100
+++ b/AbstractSourceCodeManager.st	Thu Dec 12 00:51:30 2019 +0100
@@ -2894,11 +2894,18 @@
     "retrieve a list of symbolic tags known for that class.
      I.e. which tags/symbolic versions exist"
 
-    |tagRevisionMapping|
+    |tagRevisionMapping tagList|
 
     tagRevisionMapping := self knownTagsAndRevisionsFor:aClass.
     tagRevisionMapping isEmptyOrNil ifTrue:[^ tagRevisionMapping].
-    ^ tagRevisionMapping keys
+    "/ ^ tagRevisionMapping keys
+
+    "/ sort by revision; within same revision, sort by tag name
+    tagList := (((tagRevisionMapping associations 
+                    sort:[:a :b | a key < b key "self versionString:(a value) isLessThan:(b value)"])
+                        stableSort:[:a :b | self versionString:(a value) isLessThan:(b value)])
+                            collect:[:assoc | assoc key]) reverse.
+    ^ tagList
 
     "Modified: / 08-02-2011 / 10:18:34 / cg"
 !