--- a/AbstractMultidimensionalArray.st	Wed Aug 28 17:12:42 2019 +0200
+++ b/AbstractMultidimensionalArray.st	Wed Aug 28 18:29:21 2019 +0200
@@ -10,6 +10,16 @@
 !
 
 
+!AbstractMultidimensionalArray class methodsFor:'queries'!
+
+isAbstract
+    "Return if this class is an abstract class.
+     True is returned here for myself only; false for subclasses.
+     Abstract subclasses must redefine this again."
+
+    ^ self == AbstractMultidimensionalArray.
+! !
+
 !AbstractMultidimensionalArray methodsFor:'accessing'!
 
 dimensions