--- a/RegressionTests__XMLCoderTests.st	Tue Aug 13 12:31:20 2002 +0200
+++ b/RegressionTests__XMLCoderTests.st	Wed Aug 14 21:18:37 2002 +0200
@@ -149,6 +149,20 @@
     self encodeAndDecode:dict
 
     "
+     self run:#testDictionary
+    "
+!
+
+testEmptyCollection
+    "test encoding an decoding of an OrderedCollection"
+
+    |set|
+
+    set := OrderedCollection new.
+
+    self encodeAndDecode:set
+
+    "
      self run:#testEmptyCollection
     "
 !