--- a/Tools__TagList.st	Fri Jan 17 11:57:26 2014 +0100
+++ b/Tools__TagList.st	Tue Jan 21 19:20:40 2014 +0100
@@ -2563,8 +2563,8 @@
                 l skip:5.
                 caseLabel := l upTo:$:.
                 lineNr := s lineNumber - 1.
-                targets add:(Tag::TLabel
-                                label:'<case> ',caseLabel 
+                targets add:(Tag::TCaseLabel
+                                label:caseLabel,'<case>' 
                                 pattern:nil
                                 type:nil
                                 lineNumber:lineNr).
@@ -3723,14 +3723,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.39 2014-01-13 13:25:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.40 2014-01-21 18:20:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.39 2014-01-13 13:25:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.40 2014-01-21 18:20:40 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.39 2014-01-13 13:25:23 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.40 2014-01-21 18:20:40 cg Exp $'
 ! !