--- a/Tools__TagList.st	Mon Oct 14 15:26:18 2013 +0200
+++ b/Tools__TagList.st	Tue Oct 15 03:30:27 2013 +0200
@@ -2026,11 +2026,13 @@
     filteredList := (filter isEmptyOrNil or:[rawList isNil])
                         ifTrue:[ rawList ]
                         ifFalse:[ self applyFilterToList:rawList ].
-    hideFunctions == true ifTrue:[
-        filteredList := filteredList reject:[:tag | tag isFunctionTag].
-    ] ifFalse:[
-        showOnly == #functions ifTrue:[
-            filteredList := filteredList select:[:tag | tag isFunctionTag].
+    filteredList notNil ifTrue:[
+        hideFunctions == true ifTrue:[
+            filteredList := filteredList reject:[:tag | tag isFunctionTag].
+        ] ifFalse:[
+            showOnly == #functions ifTrue:[
+                filteredList := filteredList select:[:tag | tag isFunctionTag].
+            ].
         ].
     ].
     self updateContentsFromFilteredList
@@ -3685,14 +3687,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.37 2013-10-14 13:26:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.38 2013-10-15 01:30:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.37 2013-10-14 13:26:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.38 2013-10-15 01:30:27 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.37 2013-10-14 13:26:18 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.38 2013-10-15 01:30:27 cg Exp $'
 ! !