--- a/AbstractSourceCodeManager.st	Tue Feb 08 09:43:27 2011 +0100
+++ b/AbstractSourceCodeManager.st	Tue Feb 08 10:41:22 2011 +0100
@@ -1910,9 +1910,10 @@
     "Created: 14.2.1997 / 20:59:28 / cg"
 !
 
-knownTagsFor:aClass
-    "retrieve a list of symbolic tags known for that class.
-     I.e. which tags/symbolic versions exist"
+knownTagsAndRevisionsFor:aClass
+    "retrieve a list of symbolic tags -> versionNr associations
+     known for that class.
+     I.e. which tags/symbolic versions exist, and which revision-nr is attached to it"
 
     |log|
 
@@ -1923,9 +1924,22 @@
             errorString: 'Could not fetch log (cvs connection error?)'.
         ^ #()
     ].
-    ^ (log at:#symbolicNames) keys.
-
-    "Created: / 08-02-2011 / 09:42:55 / cg"
+    ^ (log at:#symbolicNames).
+
+    "Created: / 08-02-2011 / 10:18:00 / cg"
+!
+
+knownTagsFor:aClass
+    "retrieve a list of symbolic tags known for that class.
+     I.e. which tags/symbolic versions exist"
+
+    |tagRevisionMapping|
+
+    tagRevisionMapping := self knownTagsAndRevisionsFor:aClass.
+    tagRevisionMapping isEmptyOrNil ifTrue:[^ tagRevisionMapping].
+    ^ tagRevisionMapping keys
+
+    "Modified: / 08-02-2011 / 10:18:34 / cg"
 !
 
 newestRevisionInFile:classFileName directory:packageDir module:moduleDir
@@ -2795,11 +2809,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.236 2011-02-08 08:43:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.237 2011-02-08 09:41:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.236 2011-02-08 08:43:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.237 2011-02-08 09:41:22 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!