--- a/Label.st	Tue Feb 18 17:45:48 2014 +0100
+++ b/Label.st	Tue Feb 18 17:46:07 2014 +0100
@@ -870,7 +870,7 @@
     DefaultForegroundColor := StyleSheet colorAt:#'label.foregroundColor'.
     DefaultForegroundColor isNil ifTrue:[
         "/ fallBack: comon value
-        DefaultForegroundColor := StyleSheet colorAt:#'foregroundColor' default:Black.
+        DefaultForegroundColor := StyleSheet colorAt:#'foregroundColor' default:Color black.
     ].
     DefaultBackgroundColor := StyleSheet colorAt:#'label.backgroundColor'.
     DefaultBackgroundColor isNil ifTrue:[
@@ -1404,7 +1404,7 @@
     DefaultForegroundColor notNil ifTrue:[
         fgColor := DefaultForegroundColor
     ] ifFalse:[
-        fgColor := Black.
+        fgColor := self blackColor.
     ].
     self class == Label ifTrue:[
         self borderWidth:0.
@@ -1959,10 +1959,10 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.152 2014-02-18 14:46:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.153 2014-02-18 16:46:07 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.152 2014-02-18 14:46:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.153 2014-02-18 16:46:07 stefan Exp $'
 ! !