--- a/Tools__TagsBrowser.st	Tue May 28 22:46:27 2013 +0100
+++ b/Tools__TagsBrowser.st	Fri May 31 00:35:44 2013 +0100
@@ -2486,6 +2486,9 @@
     "
     |tagFile|
 
+    "/ ugly hack
+    (list isKindOf:Tools::TagList) ifFalse:[^ self].
+
     Tag autoload.
 
     self stopGeneratingTags.
@@ -2600,11 +2603,11 @@
 !TagsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.32 2013-03-06 09:02:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.33 2013-05-06 14:26:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.32 2013-03-06 09:02:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.33 2013-05-06 14:26:26 cg Exp $'
 !
 
 version_HG