--- a/Tools__TagList.st	Sun Jun 08 23:12:11 2014 +0200
+++ b/Tools__TagList.st	Sun Jun 08 23:17:26 2014 +0200
@@ -51,7 +51,7 @@
 "
 ! !
 
-!TagList class methodsFor:'accessing'!
+!TagList class methodsFor:'accessing - suffixes'!
 
 tagsSuffixes
 "flush with:
@@ -63,12 +63,12 @@
     TagsSuffixes := IdentityDictionary new.
 
     TagsSuffixes at:#'text/asm'                 put:#( 's' 'asm' ).
-    TagsSuffixes at:#'text/c'                   put:#( 'c' 'h' 'ci' 'hi' 'sc').
+    TagsSuffixes at:#'text/c'                   put:#( 'c' 'h' 'ci' 'hi' 'sc' 'sth').
     TagsSuffixes at:#'text/cpp'                 put:#( 'cc' 'cpp' 'cxx' 'c++' 'hxx' 'hpp' 'h++').
     TagsSuffixes at:#'text/eiffel'              put:#( 'e' 'eif' ).
     TagsSuffixes at:#'text/fortran'             put:#( 'f' 'for' 'ftn' 'f77' 'f90' ).
     TagsSuffixes at:#'text/html'                put:#( 'htm' 'html').
-    TagsSuffixes at:#'text/java'                put:#( 'java' 'jav').
+    TagsSuffixes at:#'text/java'                put:#( 'java' 'jav' 'j').
     TagsSuffixes at:#'text/javaScript'          put:#( 'js' ).
     TagsSuffixes at:#'text/javascript'          put:#( 'js' ).
     TagsSuffixes at:#'application/x-javascript' put:#( 'js' ).
@@ -3929,14 +3929,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.57 2014-06-08 21:12:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.58 2014-06-08 21:17:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.57 2014-06-08 21:12:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.58 2014-06-08 21:17:26 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.57 2014-06-08 21:12:11 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.58 2014-06-08 21:17:26 cg Exp $'
 ! !