--- a/Color.st	Sat Feb 21 15:48:14 1998 +0100
+++ b/Color.st	Sat Feb 21 17:05:35 1998 +0100
@@ -594,7 +594,11 @@
      behave like a all-1-color (i.e. have a device-pixel value of all-1s)"
 
     PseudoAll isNil ifTrue:[
-        PseudoAll := self basicNew setColorId:-1
+	OperatingSystem isMSWINDOWSlike ifTrue:[
+	    PseudoAll := White.
+	] ifFalse:[
+            PseudoAll := self basicNew setColorId:-1
+	]
     ].
     ^ PseudoAll
 
@@ -4505,6 +4509,6 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.109 1998-01-18 18:23:26 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.110 1998-02-21 16:05:35 cg Exp $'
 ! !
 Color initialize!