--- a/ColorMenu.st	Thu Sep 10 17:32:05 2009 +0200
+++ b/ColorMenu.st	Fri Sep 11 16:42:27 2009 +0200
@@ -643,7 +643,7 @@
     defineColorDialog := ColorEditDialog new color: self color.
     defineColorDialog open.
     defineColorDialog accept value ifTrue: [
-        self color:defineColorDialog color
+        self color:defineColorDialog colorNameOrColor
     ]
 !
 
@@ -659,5 +659,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.61 2009-05-28 11:57:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.62 2009-09-11 14:42:27 cg Exp $'
 ! !