--- a/Tools__TagList.st	Thu Mar 24 02:03:48 2016 +0100
+++ b/Tools__TagList.st	Fri Mar 25 16:40:20 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG 
 	      All Rights Reserved
@@ -85,7 +83,7 @@
     TagsSuffixes at:#'text/scheme'              put:#( 'scm' 'ss' 'brg').
     TagsSuffixes at:#'text/oz'                  put:#( 'oz').
     TagsSuffixes at:#'text/lua'                 put:#( 'lua').
-    TagsSuffixes at:#'text/smalltalk'           put:#( 'st' ).
+    TagsSuffixes at:#'text/smalltalk'           put:#( 'st' 'ST' 'St' 'Prj').
     TagsSuffixes at:#'text/tcl'                 put:#( 'tcl' ).
     TagsSuffixes at:#'text/ruby'                put:#( 'rb' ).
     TagsSuffixes at:#'text/yacc'                put:#( 'y' ).
@@ -2228,6 +2226,10 @@
     tagsValidForFile := nil.
 
     forceSimpleTagList := false.
+    (self class isSmalltalkSuffix:aFile suffix) ifTrue:[
+        forceSimpleTagList := true.
+    ].
+    
     "/ the simple builtin tagList generator is actually better than the ctags output for makefiles
     (self class makeFilePatterns contains:[:aPattern | (aPattern match:aFile baseName asLowercase)]) ifTrue:[forceSimpleTagList := true].