--- a/AboutBox.st	Tue Feb 18 15:51:35 2014 +0100
+++ b/AboutBox.st	Tue Feb 18 17:07:50 2014 +0100
@@ -199,8 +199,8 @@
             green := Color brightness:(green brightness).    
             dark := Color brightness:(dark brightness).    
         ] ifFalse:[
-            green := Color white.
-            dark := Color black.
+            green := self whiteColor.
+            dark := self blackColor.
         ]
     ].
 
@@ -210,7 +210,7 @@
     (lbl := self formLabel) viewBackground:dark.
     lbl foregroundColor:green backgroundColor:dark.
     (lbl := self textLabel) viewBackground:dark.
-    lbl foregroundColor:White backgroundColor:dark.
+    lbl foregroundColor:Color white backgroundColor:dark.
 
     self title:(self class aboutText).
     self okText:(resources string:'Close').
@@ -238,10 +238,10 @@
 !AboutBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.40 2014-02-18 14:20:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.41 2014-02-18 16:07:50 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.40 2014-02-18 14:20:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.41 2014-02-18 16:07:50 stefan Exp $'
 ! !