--- a/Tools__TagList.st	Wed Aug 05 17:38:43 2015 +0200
+++ b/Tools__TagList.st	Thu Aug 06 17:59:16 2015 +0200
@@ -2194,6 +2194,14 @@
         ifNone:nil
 !
 
+tagForMacro:macroName 
+    ^ rawList 
+        detect:[:tag |
+            tag isMacroTag and:[ tag label = macroName ]
+        ]
+        ifNone:nil
+!
+
 tagForType:typeName 
     ^ rawList 
         detect:[:tag |