--- a/Color.st	Tue Sep 08 15:12:27 1998 +0200
+++ b/Color.st	Tue Sep 08 16:22:14 1998 +0200
@@ -3912,6 +3912,9 @@
             ^ self
         ].
     ].
+    aDevice isNil ifTrue:[
+        ^ self
+    ].
 
     device == aDevice ifTrue:[
         ditherForm notNil ifTrue:[
@@ -4121,8 +4124,8 @@
     ].
     ^ newColor
 
-    "Created: 16.11.1995 / 20:16:42 / cg"
-    "Modified: 3.5.1997 / 11:09:30 / cg"
+    "Created: / 16.11.1995 / 20:16:42 / cg"
+    "Modified: / 8.9.1998 / 17:32:10 / cg"
 !
 
 onDevice:aDevice
@@ -4539,6 +4542,6 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.118 1998-08-27 14:21:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.119 1998-09-08 14:22:14 cg Exp $'
 ! !
 Color initialize!