--- a/Tools__TagList.st	Thu Oct 20 00:51:17 2011 +0200
+++ b/Tools__TagList.st	Fri Oct 21 09:32:54 2011 +0200
@@ -197,6 +197,12 @@
     ^ self tagsSuffixes at:#'text/php'
 !
 
+pltSchemeLispSuffixes
+    ^ #('plt')
+
+    "Created: / 21-10-2011 / 09:32:20 / cg"
+!
+
 prologSuffixes
     "returns a list of supported prolog-suffixes
     "
@@ -209,6 +215,12 @@
     ^ self tagsSuffixes at:#'text/python'
 !
 
+racketSchemeLispSuffixes
+    ^ #('rkt')
+
+    "Created: / 21-10-2011 / 09:32:27 / cg"
+!
+
 rubySuffixes
     "returns a list of supported ruby-suffixes
     "
@@ -288,7 +300,11 @@
 isLispSuffix:suffix
     ^ (self isCommonLispSuffix:suffix) 
     or:[(self isSchemeSuffix:suffix)
-    or:[self isArcLispSuffix:suffix]]
+    or:[(self isArcLispSuffix:suffix)
+    or:[(self isPltSchemeLispSuffix:suffix)
+    or:[(self isRacketSchemeLispSuffix:suffix)]]]]
+
+    "Modified: / 21-10-2011 / 09:31:30 / cg"
 !
 
 isMakefileName:fileName
@@ -309,6 +325,12 @@
     ^ self isSuffix:suffix in:self phpSuffixes
 !
 
+isPltSchemeLispSuffix:suffix
+    ^ self isSuffix:suffix in:self pltSchemeLispSuffixes
+
+    "Created: / 21-10-2011 / 09:30:56 / cg"
+!
+
 isPrologSuffix:suffix
     ^ self isSuffix:suffix in:self prologSuffixes
 !
@@ -317,6 +339,12 @@
     ^ self isSuffix:suffix in:self pythonSuffixes
 !
 
+isRacketSchemeLispSuffix:suffix
+    ^ self isSuffix:suffix in:self racketSchemeLispSuffixes
+
+    "Created: / 21-10-2011 / 09:31:04 / cg"
+!
+
 isRubySuffix:suffix
     ^ self isSuffix:suffix in:self rubySuffixes
 !
@@ -3200,7 +3228,7 @@
 !TagList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.6 2011-07-03 15:05:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.7 2011-10-21 07:32:54 cg Exp $'
 !
 
 version_SVN