--- a/SourceCodeManagerUtilities.st	Wed Apr 15 03:01:25 2015 +0000
+++ b/SourceCodeManagerUtilities.st	Thu Apr 16 11:35:17 2015 +0200
@@ -3389,6 +3389,12 @@
 !
 
 tagClasses:aCollectionOfClasses as:tag
+    ^ self tagClasses:aCollectionOfClasses as:tag revision:nil
+
+    "Created: / 12-09-2006 / 13:04:29 / cg"
+!
+
+tagClasses:aCollectionOfClasses as:tag revision:revision
     |classesPerManager|
 
     classesPerManager := Dictionary new.
@@ -3403,13 +3409,11 @@
     classesPerManager keysAndValuesDo:[:manager :classesPerManager|
         manager
             setSymbolicName:tag 
-            revision:nil 
+            revision:revision 
             overWrite:true 
             classes:classesPerManager.
     ].
     ^ true
-
-    "Created: / 12-09-2006 / 13:04:29 / cg"
 !
 
 tagPackage: package as:tag
@@ -4325,10 +4329,10 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.319 2015-03-01 13:18:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.320 2015-04-16 09:35:17 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.319 2015-03-01 13:18:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.320 2015-04-16 09:35:17 stefan Exp $'
 ! !