--- a/Depth24Image.st	Tue Apr 02 11:34:15 2013 +0200
+++ b/Depth24Image.st	Tue Apr 02 14:02:59 2013 +0200
@@ -969,7 +969,7 @@
 "/            ].
 "/            colors addAll:aDevice deviceColors.
             colors addAll:(aDevice colorMap collect:[:c|c onDevice:aDevice]).
-            colors := colors select:[:c | c colorId notNil] as:Array.
+            colors := (colors select:[:c | c colorId notNil]) asOrderedCollection.
             colors size > 256 ifTrue:[
                 colors := colors copyTo:256
             ].
@@ -3112,10 +3112,10 @@
 !Depth24Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.94 2013-04-02 09:32:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.95 2013-04-02 12:02:59 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.94 2013-04-02 09:32:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.95 2013-04-02 12:02:59 stefan Exp $'
 ! !