--- a/Tools__TagList.st	Thu Aug 23 14:54:34 2012 +0200
+++ b/Tools__TagList.st	Thu Aug 23 23:21:31 2012 +0200
@@ -2508,7 +2508,7 @@
                         hideVariableValue ~~ true ifTrue:[
                             nm := l copyFrom:(keywordSpace size + 1).
                             nm := nm copyTo:(nm 
-                                                findFirst:[:ch | (ch isLetterOrDigit or:['$_' includes:ch]) not] 
+                                                findFirst:[:ch | (ch isLetterOrDigit or:['$_.' includes:ch]) not] 
                                                 ifNone:nm size+1)-1.
                             targets add:(tagType 
                                             label:nm 
@@ -3504,11 +3504,11 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.15 2012-08-22 19:50:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.16 2012-08-23 21:21:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.15 2012-08-22 19:50:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.16 2012-08-23 21:21:31 cg Exp $'
 !
 
 version_SVN