--- a/Tools__TagsBrowser.st	Mon Nov 26 12:24:30 2012 +0100
+++ b/Tools__TagsBrowser.st	Mon Nov 26 22:47:52 2012 +0100
@@ -2372,6 +2372,10 @@
     application := theTagsBrowser.
 !
 
+clearList
+    self list:nil
+!
+
 filter:aString
     filter := aString.
     list filter:aString.
@@ -2596,11 +2600,11 @@
 !TagsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.30 2012-09-08 17:54:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.31 2012-11-26 21:47:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.30 2012-09-08 17:54:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.31 2012-11-26 21:47:52 cg Exp $'
 !
 
 version_SVN