--- a/Array.st	Thu Jul 05 11:45:05 2012 +0100
+++ b/Array.st	Wed Jul 18 17:55:48 2012 +0100
@@ -431,8 +431,19 @@
 asImmutableArray
     "return a write-protected copy of myself"
 
-    self assert:(ImmutableArray notNil).
-    ^ self copy changeClassTo:ImmutableArray
+    "/ self assert:(ImmutableArray notNil).
+    ^ self copy beImmutable
+
+    "Modified: / 07-06-2012 / 11:06:48 / cg"
+!
+
+beImmutable
+    "make myself write-protected"
+
+    "/ self assert:(ImmutableArray notNil).
+    self changeClassTo:ImmutableArray
+
+    "Created: / 07-06-2012 / 11:06:33 / cg"
 ! !
 
 !Array methodsFor:'copying'!
@@ -2527,15 +2538,15 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.149 2010/09/21 06:57:51 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.150 2012/06/07 09:08:32 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Array.st,v 1.149 2010/09/21 06:57:51 stefan Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Array.st,v 1.150 2012/06/07 09:08:32 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Array.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+    ^ '$Id: Array.st 10824 2012-07-18 16:55:48Z vranyj1 $'
 ! !