--- a/DeviceGraphicsContext.st	Tue Aug 31 18:00:28 1999 +0200
+++ b/DeviceGraphicsContext.st	Tue Aug 31 21:38:09 1999 +0200
@@ -3342,7 +3342,7 @@
     device setFunction:#xor in:gcId.
     aBlock value.
 
-    paint := nil.        "invalidate"
+    paint := bgPaint := nil.        "invalidate"
     foreground := device blackColor.   
     background := device whiteColor.
     device setForeground:fgPixel background:bgPixel in:gcId.
@@ -3838,6 +3838,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.70 1999-08-23 23:09:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.71 1999-08-31 19:38:09 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!