--- a/Tools__CheckinInfoDialog.st	Thu Jun 06 12:45:40 2013 +0200
+++ b/Tools__CheckinInfoDialog.st	Thu Jun 06 12:56:17 2013 +0200
@@ -487,7 +487,7 @@
 
 tagHolder
     tagHolder isNil ifTrue:[
-        tagHolder := '' asValue.
+        tagHolder := (CVSSourceCodeManager recentTag ? '') asValue.
     ].
     ^ tagHolder
 !
@@ -518,10 +518,10 @@
 !CheckinInfoDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.17 2013-03-28 00:14:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.18 2013-06-06 10:56:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.17 2013-03-28 00:14:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.18 2013-06-06 10:56:17 cg Exp $'
 ! !