--- a/Tools__TagList.st	Wed Jan 20 10:50:38 2016 +0100
+++ b/Tools__TagList.st	Wed Jan 20 10:58:19 2016 +0100
@@ -2568,6 +2568,7 @@
         tagType := ''
     ] ifFalse:[
         (showOnly := self showOnly) notNil ifTrue:[
+            "/ how ugly can a piece of code get?
             showOnly == #classes ifTrue:[
                 tagClass ~~ Tag::TClass ifTrue:[^ nil].
             ] ifFalse:[ showOnly == #functions ifTrue:[
@@ -2590,9 +2591,13 @@
             ] ifFalse:[ showOnly == #structs ifTrue:[
                 tagClass ~~ Tag::TStruct ifTrue:[^ nil].
             ] ifFalse:[ showOnly == #everything ifTrue:[
-            ] ifFalse:[
+            ] ifFalse:[ showOnly == #headlines ifTrue:[
+                tagClass ~~ Tag::THeaderElement ifTrue:[^ nil].
+            ] ifFalse:[ showOnly == #anchors ifTrue:[
+                tagClass ~~ Tag::TAnchorElement ifTrue:[^ nil].
+            ] ifFalse:[    
                 self halt:'unhandled showOnly'.
-            ]]]]]]]]]
+            ]]]]]]]]]]]
         ]
     ].