--- a/ColorMenu.st	Tue Dec 04 09:15:55 2007 +0100
+++ b/ColorMenu.st	Tue Dec 04 09:23:13 2007 +0100
@@ -106,7 +106,7 @@
             label := labels at:idx ifAbsent:defLabel.
             label := Text string:label foregroundColor:fgColor backgroundColor:aBgColor.
             item  := MenuItem labeled:label.
-            item argument:bgColor.
+            item argument:aBgColor.
             
             submenu addItem:item.
         ].
@@ -477,5 +477,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.38 2007-12-04 08:15:55 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.39 2007-12-04 08:23:13 ca Exp $'
 ! !