--- a/RegressionTests__XMLCoderTests.st	Tue Dec 06 14:16:01 2016 +0100
+++ b/RegressionTests__XMLCoderTests.st	Tue Dec 06 14:16:02 2016 +0100
@@ -6,7 +6,7 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'XML-Presentation'
+	category:'tests-Regression-XML'
 !
 
 !XMLCoderTests class methodsFor:'documentation'!
@@ -305,6 +305,25 @@
     "
 !
 
+testRecursiveArray
+    |arr encodedString decodedObject|
+
+    arr := Array new:3.
+    arr at:1 put:1.
+    arr at:2 put:arr.
+    arr at:3 put:3.
+
+    encodedString := XMLStandardCoder new encodingOf:arr.
+    decodedObject := (XMLStandardDecoder on:encodedString readStream) next.
+    self assert:(decodedObject at:1) == 1.
+    self assert:(decodedObject at:3) == 3.
+    self assert:(decodedObject at:2) == decodedObject.
+    "
+     self run:#testRecursiveArray
+    "
+
+!
+
 testSet
     "test encoding an decoding of a set"
 
@@ -347,6 +366,7 @@
     "
      self run:#testUUID
     "
+
 ! !
 
 !XMLCoderTests class methodsFor:'documentation'!
@@ -354,3 +374,4 @@
 version
     ^ '$Header$'
 ! !
+