--- a/Tools__TagList.st	Fri Jul 31 18:22:55 2015 +0200
+++ b/Tools__TagList.st	Fri Jul 31 18:23:21 2015 +0200
@@ -2194,6 +2194,14 @@
         ifNone:nil
 !
 
+tagForType:typeName 
+    ^ rawList 
+        detect:[:tag |
+            tag isTypeTag and:[ tag label = typeName ]
+        ]
+        ifNone:nil
+!
+
 tagsValidForFile
     "the file, for which the tagsList is valid"