--- a/CharacterArray.st	Tue May 27 20:31:55 2008 +0200
+++ b/CharacterArray.st	Wed May 28 11:41:59 2008 +0200
@@ -4051,7 +4051,7 @@
 
     |stream|
 
-    stream := WriteStream on:(self species new:self size + 20).
+    stream := TextStream on:(self species new:self size + 20).
     self expandPlaceholdersWith:argArrayOrDictionary on:stream.
     ^ stream contents.
 
@@ -4065,6 +4065,8 @@
      '%%10 gives %10' expandPlaceholdersWith:#(123)
      '%%(10) gives %(10)' expandPlaceholdersWith:#(123)
      '%test gives %1' expandPlaceholdersWith:#(123)
+     'bla %1 bla' expandPlaceholdersWith:{ 'hello' allBold }
+     'bla %1 bla' expandPlaceholdersWith:{ 'hello' }
     "
 
     "
@@ -5453,7 +5455,7 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.374 2008-05-14 09:11:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.375 2008-05-28 09:41:59 cg Exp $'
 ! !
 
 CharacterArray initialize!