--- a/CheckBox.st	Tue Mar 10 18:12:02 1998 +0100
+++ b/CheckBox.st	Wed Mar 11 21:21:49 1998 +0100
@@ -601,10 +601,12 @@
 
     |clr|
 
-    self enabled 
+    self enabled   
     ifTrue:
-    [  
-        labelView foregroundChannel: foregroundChannel.
+    [                 
+        (foregroundChannel notNil and: [foregroundChannel value notNil]) 
+            ifTrue:  [labelView foregroundChannel: foregroundChannel]
+            ifFalse: [labelView foregroundColor: labelForegroundColor ? Color black].
         labelForegroundColor := labelView foregroundColor
     ]
     ifFalse: 
@@ -795,5 +797,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.51 1998-03-09 21:21:33 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.52 1998-03-11 20:21:49 tz Exp $'
 ! !