--- a/CharacterArray.st	Wed Jul 10 14:55:39 2013 +0100
+++ b/CharacterArray.st	Sun Jul 14 19:27:31 2013 +0100
@@ -241,6 +241,7 @@
     "Created: / 09-01-2011 / 10:37:57 / cg"
 ! !
 
+
 !CharacterArray class methodsFor:'Compatibility-VW'!
 
 fromIntegerArray: anArray
@@ -680,6 +681,7 @@
 ! !
 
 
+
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 
 addLineDelimiters
@@ -690,6 +692,7 @@
     "Modified: / 13.11.2001 / 19:16:25 / cg"
 ! !
 
+
 !CharacterArray methodsFor:'Compatibility-Dolphin'!
 
 argumentCount
@@ -4579,22 +4582,24 @@
 
     n := self occurrencesOf:$'.
     n ~~ 0 ifTrue:[
-	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
+        s := self species 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 , ''''
+
+    "Modified: / 14-07-2013 / 19:20:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 displayOn:aGCOrStream
@@ -6422,6 +6427,11 @@
 
 version_CVS
     ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.506 2013-06-26 07:59:54 stefan Exp $'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !