--- a/SourceCodeManagerUtilities.st	Sat Apr 26 11:46:13 2014 +0200
+++ b/SourceCodeManagerUtilities.st	Thu May 08 16:19:35 2014 +0200
@@ -674,13 +674,6 @@
 
 !SourceCodeManagerUtilities methodsFor:'accessing'!
 
-classResources
-
-    ^self class classResources
-
-    "Created: / 10-10-2011 / 11:42:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 confirmNewFiles:aBoolean
     "if true, ask if new files are about to be added to the repo"
 
@@ -736,7 +729,7 @@
 
 initialize
     confirmNewFiles := true.
-    resources := self classResources.
+    resources := self class classResources.
 
     "Modified: / 13-10-2011 / 11:03:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 24-07-2012 / 18:17:57 / cg"
@@ -3200,7 +3193,7 @@
      return a dictionary containing module, package and filename,
      or nil if canceled."
 
-    |box y component resources answer
+    |box y component answer
      moduleHolder packageHolder fileNameHolder
      module package fileName 
      allPackageIDs knownContainers knownPackages packageUpdater
@@ -3252,8 +3245,6 @@
     packageHolder := initialPackage asValue.
     fileNameHolder := initialFileName asValue.
 
-    resources := self classResources.
-
     "/
     "/ open a dialog for this
     "/
@@ -3398,12 +3389,9 @@
      return a revision number, or nil if canceled."
 
     |partialLog revisions items newestRev
-     box y component resources 
-     revisionHolder symbolicNames stableRevision releasedRevision
+     box y component revisionHolder symbolicNames stableRevision releasedRevision
      tagHolder tagList lockChange|
 
-    resources := self classResources.
-
     partialLog := aSourceCodeManager
         revisionLogOf:clsOrNil
         numberOfRevisions:20
@@ -3539,7 +3527,7 @@
     ].
     box destroy.
 
-    ^ revisionHolder value withoutSpaces.
+    ^ (tagHolder value notEmptyOrNil ifTrue:[tagHolder] ifFalse:[revisionHolder]) value withoutSpaces.
 
     "
      SourceCodeManagerUtilities
@@ -3565,9 +3553,7 @@
      Only checks in non-extension methods - as this is only called when checking "
 
     |badStuff whatIsBad msg answer labels values defaultAnswer dontShowAgain
-     methodsWithBadStuff resources|
-
-    resources := Dialog classResources.
+     methodsWithBadStuff|
 
     badStuff := #(
         ( halt         'send of #halt (use for debugging only) - better use #error:''some message'' or #breakPoint:')
@@ -3644,7 +3630,7 @@
                       request:msg withCRs
                       label:(resources string:'Really CheckIn ?')
                       image:(InfoBox iconBitmap)
-                      buttonLabels:(resources array:labels)
+                      buttonLabels:(Dialog classResources array:labels)
                       values:values
                       default:defaultAnswer
                       onCancel:nil.
@@ -4005,10 +3991,10 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.301 2014-04-13 14:35:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.302 2014-05-08 14:19:35 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.301 2014-04-13 14:35:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.302 2014-05-08 14:19:35 stefan Exp $'
 ! !