--- a/Tools__TagList.st	Thu Feb 19 14:07:29 2015 +0100
+++ b/Tools__TagList.st	Thu Feb 19 21:39:05 2015 +0100
@@ -1651,7 +1651,7 @@
     string := stream contents.
     index := string findString:'Exuberant Ctags' ifAbsent:[nil].
     index notNil ifTrue:[
-        string := (string copyFrom:(index + ('Exuberant Ctags' size))) asArrayOfSubstrings first.
+        string := (string copyFrom:(index + ('Exuberant Ctags' size))) asCollectionOfWords first.
         (string includes:$,) ifTrue:[ string := string copyTo:((string indexOf:$,) - 1)].
         indexOfPoint := string indexOf:$. ifAbsent:nil.
         indexOfPoint notNil ifTrue:[
@@ -3995,14 +3995,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.71 2015-02-13 21:58:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.72 2015-02-19 20:39:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.71 2015-02-13 21:58:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.72 2015-02-19 20:39:05 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.71 2015-02-13 21:58:22 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.72 2015-02-19 20:39:05 cg Exp $'
 ! !