--- a/ImmutableArray.st	Tue Feb 03 14:53:51 2015 +0100
+++ b/ImmutableArray.st	Tue Feb 03 14:54:33 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Array variableSubclass:#ImmutableArray
 	instanceVariableNames:''
 	classVariableNames:''
@@ -73,6 +75,20 @@
 "
 ! !
 
+!ImmutableArray class methodsFor:'queries'!
+
+mutableClass
+    "answer an equivalent mustable class"
+
+    ^ Array
+! !
+
+!ImmutableArray class methodsFor:'testing'!
+
+hasImmutableInstances
+    ^ true
+! !
+
 !ImmutableArray methodsFor:'accessing'!
 
 at:index put:value
@@ -186,10 +202,10 @@
 !ImmutableArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.33 2014-08-23 17:43:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.34 2015-02-03 13:54:33 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.33 2014-08-23 17:43:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.34 2015-02-03 13:54:33 stefan Exp $'
 ! !