--- a/ImmutableString.st	Sat Aug 23 19:43:58 2014 +0200
+++ b/ImmutableString.st	Sat Aug 23 19:44:00 2014 +0200
@@ -100,6 +100,12 @@
 
 asImmutableString
     ^ self
+!
+
+asMutableCollection
+    "return a writable copy of myself"
+
+    ^ self copy changeClassTo:String
 ! !
 
 !ImmutableString methodsFor:'copying'!
@@ -188,10 +194,10 @@
 !ImmutableString class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableString.st,v 1.14 2014-05-06 20:21:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableString.st,v 1.15 2014-08-23 17:44:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableString.st,v 1.14 2014-05-06 20:21:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableString.st,v 1.15 2014-08-23 17:44:00 cg Exp $'
 ! !