--- a/Tools__TagList.st	Tue Sep 16 16:55:50 2014 +0200
+++ b/Tools__TagList.st	Fri Sep 19 13:52:34 2014 +0200
@@ -2607,7 +2607,7 @@
 
     |el collector hasSpace txt|
 
-    collector := WriteStream on:(String new:100).
+    collector := CharacterWriteStream on:(String new:100).
     el := startElement next.
 
     hasSpace := true.
@@ -3968,14 +3968,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.63 2014-07-27 10:26:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.64 2014-09-19 11:52:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.63 2014-07-27 10:26:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.64 2014-09-19 11:52:34 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.63 2014-07-27 10:26:50 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.64 2014-09-19 11:52:34 cg Exp $'
 ! !