--- a/ClassDescription.st	Mon Dec 15 13:04:44 2008 +0100
+++ b/ClassDescription.st	Mon Dec 15 14:34:57 2008 +0100
@@ -2349,10 +2349,7 @@
 fileOutXMLString:someString on:aStream
     "append an xml-escaped string to aStream."
 
-    aStream nextPutAll:(XMLRepresenter escapedString:someString)
-
-
-
+    XMLCoder putQuotedString:someString on:aStream
 ! !
 
 !ClassDescription methodsFor:'printOut'!
@@ -4065,7 +4062,7 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.197 2008-06-20 09:40:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.198 2008-12-15 13:34:57 stefan Exp $'
 ! !
 
 ClassDescription initialize!