--- a/Tools__TagList.st	Sun Nov 17 16:02:10 2019 +0100
+++ b/Tools__TagList.st	Mon Nov 18 14:40:11 2019 +0100
@@ -674,6 +674,21 @@
     "Modified: / 05-05-2011 / 15:21:56 / cg"
 !
 
+constantsOnly
+    ^ showOnly == #constants
+
+
+!
+
+constantsOnly:aBoolean
+    showOnly := nil.
+    aBoolean ifTrue:[
+        showOnly := DefaultShowOnly := #constants
+    ].
+
+
+!
+
 dartClassesAndMethodsOnly
     <resource: #obsolete>
     ^ self classesAndMethodsOnly
@@ -2894,9 +2909,13 @@
                 tagClass ~~ Tag::TMakeTarget ifTrue:[^ nil].
             ] ifFalse:[ showOnly == #methods ifTrue:[
                 tagClass ~~ Tag::TMethod ifTrue:[^ nil].
+            ] ifFalse:[ showOnly == #macros ifTrue:[
+                ((tagClass ~~ Tag::TMacro) 
+                and:[(tagClass ~~ Tag::TLispMacro)
+                and:[tagClass ~~ Tag::TLispConstant]]) ifTrue:[^ nil].
             ] ifFalse:[    
                 self halt:'unhandled showOnly'.
-            ]]]]]]]]]]]]]
+            ]]]]]]]]]]]]]]
         ].
         tagClass ~~ Tag::TClass ifTrue:[
             self hideClasses == true ifTrue:[^ nil].