--- a/DeviceWorkstation.st	Sat Sep 03 09:52:44 2016 +0200
+++ b/DeviceWorkstation.st	Tue Sep 06 09:54:24 2016 +0200
@@ -1766,7 +1766,12 @@
 
 blackColor
     "return the black color on this device.
-     This is the same as 'Color black on:device', but much faster."
+     This is the same as 'Color black onDevice:device', but much faster."
+
+    blackColor isNil ifTrue:[
+        "not yet initialized"
+        ^ Color black onDevice:self.
+    ].
 
     ^ blackColor
 
@@ -1958,7 +1963,12 @@
 
 whiteColor
     "return the white color on this device.
-     This is the same as 'Color white on:device', but much faster."
+     This is the same as 'Color white onDevice:device', but much faster."
+
+    whiteColor isNil ifTrue:[
+        "not yet initialized"
+        ^ Color white onDevice:self.
+    ].
 
     ^ whiteColor