--- a/Depth8Image.st	Wed Oct 15 13:20:19 1997 +0200
+++ b/Depth8Image.st	Wed Oct 15 13:23:11 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 15-oct-1997 at 2:31:42 pm'                  !
+
 Image subclass:#Depth8Image
 	instanceVariableNames:''
 	classVariableNames:''
@@ -436,12 +438,16 @@
             dColors := dColors collect:[:clr | clr exactOn:aDevice].
             dColors := dColors select:[:clr | clr notNil].
             dColors := dColors asSet.
+            dColors addAll:((aDevice colorMap collect:[:c|c onDevice:aDevice])
+                            select:[:c | c colorId notNil]).
             ditherColors := aDevice availableDitherColors.
             ditherColors notNil ifTrue:[
                 dColors addAll:ditherColors.
             ].
             dColors := dColors asArray.
-
+            dColors size > 256 ifTrue:[
+                dColors := dColors copyTo:256
+            ].
             ^ self asFloydSteinbergDitheredPseudoFormUsing:dColors on:aDevice
         ].
 
@@ -645,7 +651,7 @@
 
     ^ f
 
-    "Modified: 4.8.1997 / 13:23:29 / cg"
+    "Modified: 15.10.1997 / 01:48:20 / cg"
 !
 
 paletteImageAsTrueColorFormOn:aDevice
@@ -1708,5 +1714,5 @@
 !Depth8Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth8Image.st,v 1.74 1997-08-05 15:34:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth8Image.st,v 1.75 1997-10-15 11:23:11 cg Exp $'
 ! !