--- a/Tools__TagList.st	Thu Aug 06 06:51:59 2015 +0200
+++ b/Tools__TagList.st	Fri Aug 07 06:56:41 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 |