--- a/ColorMenu.st	Tue Feb 03 15:17:29 2015 +0100
+++ b/ColorMenu.st	Tue Feb 03 17:36:46 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 MenuPanel subclass:#ColorMenu
 	instanceVariableNames:'overwriteDefaultToggleChannel enabledChannel labelsAreColored
 		color colorName allowSymbolicColors showDefaultToggle
@@ -820,7 +822,7 @@
     defineColorDialog := ColorEditDialog new color: self color.
     defineColorDialog open.
     defineColorDialog accept value ifTrue: [
-        self color:defineColorDialog colorNameOrColor
+        self color:defineColorDialog color
     ]
 !
 
@@ -836,6 +838,6 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.79 2014-07-08 14:46:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.80 2015-02-03 16:36:46 cg Exp $'
 ! !