--- a/Tools__TagList.st	Thu May 22 00:25:58 2014 +0200
+++ b/Tools__TagList.st	Fri May 23 00:13:56 2014 +0200
@@ -957,6 +957,16 @@
     "Modified: / 05-05-2011 / 15:22:41 / cg"
 !
 
+hideLabels
+    ^ self flagNamed:#hideLabels 
+!
+
+hideLabels:aBoolean
+    self flagNamed:#hideLabels put:aBoolean.
+
+    "Modified: / 05-05-2011 / 15:22:46 / cg"
+!
+
 hideLispConstants
     ^ self flagNamed:#hideLispConstants 
 !
@@ -2361,6 +2371,7 @@
 
     "/ typeCharacter to tag-Class mapping...
     languageMode == #c ifTrue:[
+        "/ Transcript showCR:tagType.
         tagType = 'v' ifTrue:[ 
             self hideVariables == true ifTrue:[^ nil].
             tagClass := Tag::TVariable 
@@ -2614,6 +2625,8 @@
 
     |targets line lineNr s caseLabel l|
 
+    self hideLabels ifTrue:[^ #()].
+
     Tag autoload.
 
     targets := OrderedCollection new.
@@ -3887,14 +3900,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.48 2014-05-21 09:03:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.49 2014-05-22 22:13:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.48 2014-05-21 09:03:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.49 2014-05-22 22:13:56 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.48 2014-05-21 09:03:22 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.49 2014-05-22 22:13:56 cg Exp $'
 ! !