--- a/Depth8Image.st	Wed Jan 15 15:18:55 1997 +0100
+++ b/Depth8Image.st	Wed Jan 15 18:08:55 1997 +0100
@@ -172,7 +172,7 @@
      bitsPerRGB "{Class: SmallInteger }"
      shift      "{Class: SmallInteger }"
      m          "{Class: SmallInteger }" 
-     cube nR nG nB|
+     cube nR nG nB ditherColors|
 
     (cube := aDevice fixColors) notNil ifTrue:[
         nR := aDevice numFixRed.
@@ -303,7 +303,10 @@
                                                               ifFalse:[clr nearestOn:aDevice]].
                 dColors := dColors select:[:clr | clr notNil].
                 dColors := dColors asSet.
-                dColors addAll:(aDevice availableDitherColors).
+                ditherColors := aDevice availableDitherColors.
+                ditherColors notNil ifTrue:[
+                    dColors addAll:ditherColors.
+                ].
                 dColors := dColors asArray.
 
 "/                ^ self asFloydSteinbergDitheredPseudoFormUsing:(Color allocatedColorsOn:aDevice) on:aDevice
@@ -508,7 +511,7 @@
 
     ^ f
 
-    "Modified: 10.1.1997 / 19:11:46 / cg"
+    "Modified: 15.1.1997 / 18:08:38 / cg"
 ! !
 
 !Depth8Image methodsFor:'dither helpers'!
@@ -1344,5 +1347,5 @@
 !Depth8Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth8Image.st,v 1.61 1997-01-10 18:15:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth8Image.st,v 1.62 1997-01-15 17:08:55 cg Exp $'
 ! !