--- a/Color.st	Thu Feb 01 01:01:05 2018 +0100
+++ b/Color.st	Mon Feb 05 00:40:05 2018 +0100
@@ -4198,9 +4198,11 @@
 
             aDevice hasGrayscales ifTrue:[
                 aDevice hasColors ifFalse:[
-                    colors := OrderedCollection new.
-                    colors add:((self gray:50) exactOn:aDevice).
-                    colors add:white; add:black.
+                    colors := 
+                        OrderedCollection 
+                            with:((self gray:50) exactOn:aDevice)
+                            with:white
+                            with:black.
 
                 ].
                 colors add:((self gray:25) exactOn:aDevice).