--- a/Tools__TagsBrowser.st	Sat Aug 10 00:21:45 2013 +0200
+++ b/Tools__TagsBrowser.st	Sat Aug 10 00:27:47 2013 +0200
@@ -22,7 +22,7 @@
 !
 
 SelectionInListModelView subclass:#TagView
-	instanceVariableNames:'application process fileName tagLineNr filter'
+	instanceVariableNames:'application process fileName tagLineNr'
 	classVariableNames:'TypeInset'
 	poolDictionaries:''
 	privateIn:TagsBrowser
@@ -2402,7 +2402,6 @@
 !
 
 filter:aString
-    filter := aString.
     list filter:aString.
 !
 
@@ -2549,7 +2548,7 @@
                 self enabled:false.
                 list add:nil.
                 list add:(Tag label:('Generating Tags ...' allBold) pattern:nil).
-                list filter:filter.
+                "/ list filter:filter.
                 list sortedByName:(application sortIsByName value).
 
                 list 
@@ -2630,14 +2629,14 @@
 !TagsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.37 2013-08-07 07:25:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.38 2013-08-09 22:27:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.37 2013-08-07 07:25:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.38 2013-08-09 22:27:47 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagsBrowser.st,v 1.37 2013-08-07 07:25:07 cg Exp $'
+    ^ '$Id: Tools__TagsBrowser.st,v 1.38 2013-08-09 22:27:47 cg Exp $'
 ! !