--- a/MatrixAccessor.st	Wed Aug 21 23:31:45 2019 +0200
+++ b/MatrixAccessor.st	Thu Aug 22 01:20:06 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:libbasic' }"
 
 "{ NameSpace: Smalltalk }"
@@ -203,6 +201,13 @@
     dimensions := dimensionsArg.
 ! !
 
+!MatrixAccessor methodsFor:'queries'!
+
+isSquare
+    ^ dimensions size == 2
+    and:[(dimensions at:1) == (dimensions at:2)]
+! !
+
 !MatrixAccessor class methodsFor:'documentation'!
 
 version_CVS