--- a/ImmutableString.st	Sat Apr 21 18:01:08 2012 +0200
+++ b/ImmutableString.st	Sat Apr 21 18:01:10 2012 +0200
@@ -104,22 +104,6 @@
 
 !ImmutableString methodsFor:'copying'!
 
-copyEmpty
-    "when copying, return a real (mutable) String"
-
-    ^ String new:self size
-
-    "Created: / 3.8.1998 / 14:46:22 / cg"
-!
-
-copyEmptyAndGrow:size
-    "when copying, return a real (mutable) String"
-
-    ^ String new:size
-
-    "Created: / 3.8.1998 / 14:46:34 / cg"
-!
-
 postCopy
     "when copied, make me a real (mutable) String"
 
@@ -148,6 +132,10 @@
     sz := self size.
     ^ (String new:sz) replaceFrom:1 to:sz with:self startingAt:1
 
+    "
+     'hello world' asImmutableString shallowCopy
+    "
+
     "Created: / 3.8.1998 / 14:47:00 / cg"
 ! !
 
@@ -186,9 +174,9 @@
 !ImmutableString class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableString.st,v 1.10 2012-02-27 19:44:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableString.st,v 1.11 2012-04-21 16:01:10 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableString.st,v 1.10 2012-02-27 19:44:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableString.st,v 1.11 2012-04-21 16:01:10 stefan Exp $'
 ! !