--- a/ColorMenu.st	Fri Nov 14 10:09:17 1997 +0100
+++ b/ColorMenu.st	Fri Nov 14 10:10:10 1997 +0100
@@ -293,9 +293,9 @@
     "
     |holder label|
 
-    aColor isNil ifTrue:[
+    aColor isColor ifFalse:[
         enabledChannel value:false
-    ] ifFalse:[
+    ] ifTrue:[
         self disabledRedrawDo:[
             holder := self colorHolder.
             label  := Text string:(holder label string) emphasis:(#backgroundColor->aColor).
@@ -409,5 +409,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.5 1997-10-29 16:42:32 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.6 1997-11-14 09:10:10 ca Exp $'
 ! !