--- a/CharacterArray.st	Mon Dec 14 11:19:40 2009 +0100
+++ b/CharacterArray.st	Mon Dec 14 14:45:29 2009 +0100
@@ -4235,19 +4235,19 @@
 
     n := self occurrencesOf:$'.
     n ~~ 0 ifTrue:[
-	s := String new:(n + 2 + self size).
-	s at:1 put:$'.
-	index := 2.
-	self do:[:thisChar |
-	    (thisChar == $') ifTrue:[
-		s at:index put:thisChar.
-		index := index + 1.
-	    ].
-	    s at:index put:thisChar.
-	    index := index + 1.
-	].
-	s at:index put:$'.
-	^ s
+        s := self class new:(n + 2 + self size).
+        s at:1 put:$'.
+        index := 2.
+        self do:[:thisChar |
+            (thisChar == $') ifTrue:[
+                s at:index put:thisChar.
+                index := index + 1.
+            ].
+            s at:index put:thisChar.
+            index := index + 1.
+        ].
+        s at:index put:$'.
+        ^ s
     ].
 
     ^ '''' , self , ''''
@@ -5744,11 +5744,11 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.425 2009-12-10 20:57:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.426 2009-12-14 13:45:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.425 2009-12-10 20:57:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.426 2009-12-14 13:45:29 cg Exp $'
 ! !
 
 CharacterArray initialize!