--- a/CharacterArray.st	Thu Oct 30 16:33:29 2008 +0100
+++ b/CharacterArray.st	Thu Oct 30 16:53:10 2008 +0100
@@ -4174,7 +4174,8 @@
         next := self at:(idx + 1).
         (next == $%) ifTrue:[
             aStream nextPut:$%.
-        ] ifFalse:[next == $< ifTrue:[
+        ] ifFalse:[ 
+        next == $< ifTrue:[
             idx2 := self indexOf:$> startingAt:idx+2.
             key := self copyFrom:idx+2 to:idx2-1.
             idx := idx2 - 1.
@@ -4214,7 +4215,11 @@
                 v isBlock ifTrue:[
                     v := v value
                 ].
-                v printOn:aStream.
+                v isString ifTrue:[
+                    aStream nextPutAll:v string.
+                ] ifFalse:[
+                    v printOn:aStream.
+                ]
             ].
         ]].
         start := idx + 2
@@ -5513,7 +5518,7 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.381 2008-10-20 10:59:41 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.382 2008-10-30 15:53:10 cg Exp $'
 ! !
 
 CharacterArray initialize!