--- a/Depth24Image.st	Mon Apr 14 20:52:14 1997 +0200
+++ b/Depth24Image.st	Mon Apr 14 21:03:08 1997 +0200
@@ -812,7 +812,7 @@
         "/
         DitherAlgorithm == #floydSteinberg ifTrue:[
             colors := colors asSet.
-            colors add:(aDevice ditherColors).
+            colors addAll:(aDevice ditherColors).
             colors := colors asArray.
             f := self rgbImageAsDitheredPseudoFormOn:aDevice colors:colors.
             f notNil ifTrue:[^ f].
@@ -1911,5 +1911,5 @@
 !Depth24Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.44 1997-04-14 18:52:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.45 1997-04-14 19:03:08 cg Exp $'
 ! !