--- a/Array.st	Thu Nov 05 15:05:29 2009 +0100
+++ b/Array.st	Thu Nov 05 15:33:13 2009 +0100
@@ -426,6 +426,13 @@
     ^ super asArray
 
     "Modified: 22.4.1996 / 12:42:09 / cg"
+!
+
+asImmutableArray
+    "return a write-protected copy of myself"
+
+    self assert:(ImmutableArray notNil).
+    ^ self copy changeClassTo:ImmutableArray
 ! !
 
 !Array methodsFor:'copying'!
@@ -2546,9 +2553,9 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.146 2009-10-06 15:16:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.147 2009-11-05 14:33:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.146 2009-10-06 15:16:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.147 2009-11-05 14:33:13 cg Exp $'
 ! !