--- a/RegressionTests__BinaryIOTests.st	Mon Nov 23 18:44:02 2009 +0100
+++ b/RegressionTests__BinaryIOTests.st	Tue Feb 09 23:09:48 2010 +0100
@@ -311,6 +311,42 @@
     "
 !
 
+testOrderedCollection1
+    |o rw|
+
+    rw := [:obj |
+        |read outStream inStream|
+
+        outStream := ByteArray new writeStream.
+
+        obj storeBinaryOn:outStream.
+
+        inStream := BinaryInputManager on:(outStream contents readStream).
+        read := inStream nextObject.
+        self assert:( read = obj).
+    ].
+
+    o := OrderedCollection new.
+    rw value:o.
+
+    o add:1.
+    rw value:o.
+
+    o add:2.
+    rw value:o.
+
+    o add:#().
+    rw value:o.
+
+    o add:#(1 2 3).
+    rw value:o.
+
+    "
+     self run:#testOrderedCollection1
+     self new testOrderedCollection1
+    "
+!
+
 testSaveReadBOS
 
     |obj fn bos child |
@@ -328,7 +364,8 @@
     obj add: child.
     child instVarNamed:#width put:XHierarchicalItem.
 
-    fn := '/tmp/HI' asFilename.
+    "/ fn := '/tmp/HI' asFilename.
+    fn := Filename newTemporary.
     bos :=  BinaryObjectStorage onNew: (fn writeStream).
     bos nextPut: obj.
 obj inspect.
@@ -338,8 +375,6 @@
         XHierarchicalItem addInstVarName:'foo'
     ].
 
-    fn := '/tmp/HI' asFilename.
-
     bos := BinaryObjectStorage onOld: fn readStream.
     BinaryIOManager requestConversionSignal handle:[:ex|
         | oldObject newClass |