--- a/Tools__Tag.st	Tue Jan 21 19:20:40 2014 +0100
+++ b/Tools__Tag.st	Tue Jan 21 19:20:50 2014 +0100
@@ -27,6 +27,13 @@
 	privateIn:Tag
 !
 
+Tag subclass:#TCaseLabel
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:Tag
+!
+
 Tag subclass:#TClass
 	instanceVariableNames:''
 	classVariableNames:''
@@ -663,6 +670,34 @@
     "Created: / 20-04-2011 / 18:53:16 / cg"
 ! !
 
+!Tag::TCaseLabel class methodsFor:'accessing'!
+
+typeIdentifier
+    ^ 'L'
+! !
+
+!Tag::TCaseLabel methodsFor:'accessing'!
+
+typeString
+    ^ 'case label'
+! !
+
+!Tag::TCaseLabel methodsFor:'testing'!
+
+isCaseLabelTag
+    "return true, if this is a case label tag 
+    "
+    ^ true
+!
+
+isLabelTag
+    "return true, if this is a label tag 
+    "
+    ^ true
+
+
+! !
+
 !Tag::TClass class methodsFor:'accessing'!
 
 typeIdentifier
@@ -1375,10 +1410,10 @@
 !Tag class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.8 2013-09-01 07:31:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.9 2014-01-21 18:20:50 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__Tag.st,v 1.8 2013-09-01 07:31:11 cg Exp $'
+    ^ '$Id: Tools__Tag.st,v 1.9 2014-01-21 18:20:50 cg Exp $'
 ! !