--- 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 |

--- a/Tools__TagsBrowser.st	Thu Aug 06 06:51:59 2015 +0200
+++ b/Tools__TagsBrowser.st	Fri Aug 07 06:56:41 2015 +0200
@@ -2490,6 +2490,10 @@
     ^ tagList tagForFunction:functionName
 !
 
+tagForMacro:typeName
+    ^ tagList tagForMacro:typeName
+!
+
 tagForType:typeName
     ^ tagList tagForType:typeName
 ! !