--- a/DeviceWorkstation.st	Wed Aug 18 18:42:22 1999 +0200
+++ b/DeviceWorkstation.st	Wed Aug 18 18:42:55 1999 +0200
@@ -4572,9 +4572,9 @@
     "initialize heavily used device resources - to avoid looking them up later"
 
     blackColor isNil ifTrue:[
-	blackColor := Color black on:self.
-	whiteColor := Color white on:self.
-	Color getPrimaryColorsOn:self.
+        blackColor := Color black onDevice:self.
+        whiteColor := Color white onDevice:self.
+        Color getPrimaryColorsOn:self.
     ]
 
     "Modified: 24.2.1997 / 22:07:50 / cg"
@@ -6455,6 +6455,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.310 1999-08-18 16:42:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.311 1999-08-18 16:42:55 cg Exp $'
 ! !
 DeviceWorkstation initialize!