--- a/AbstractSourceCodeManager.st Fri Dec 13 21:43:48 2019 +0100
+++ b/AbstractSourceCodeManager.st Mon Dec 16 11:37:59 2019 +0100
@@ -2891,13 +2891,13 @@
!
knownTagsFor:aClass
- "retrieve a list of symbolic tags known for that class.
+ "retrieve a colelction of symbolic tags known for that class.
I.e. which tags/symbolic versions exist"
|tagRevisionMapping tagList|
tagRevisionMapping := self knownTagsAndRevisionsFor:aClass.
- tagRevisionMapping isEmptyOrNil ifTrue:[^ tagRevisionMapping].
+ tagRevisionMapping isEmptyOrNil ifTrue:[^ #()].
"/ ^ tagRevisionMapping keys
"/ sort by revision; within same revision, sort by tag name