--- a/Tools__CheckinInfoDialog.st	Thu Aug 08 10:48:08 2013 +0100
+++ b/Tools__CheckinInfoDialog.st	Thu Aug 08 11:08:29 2013 +0100
@@ -394,7 +394,7 @@
 !
 
 tag
-    ^ self tagHolder value withoutSeparators
+    ^ (self tagHolder value ? '') withoutSeparators
 !
 
 tag:aStringOrNil
@@ -518,11 +518,11 @@
 !CheckinInfoDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.18 2013-06-06 10:56:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.19 2013-08-06 11:16:52 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.18 2013-06-06 10:56:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.19 2013-08-06 11:16:52 stefan Exp $'
 !
 
 version_HG