--- a/ColorEditDialog.st	Sun Feb 01 14:16:33 2015 +0100
+++ b/ColorEditDialog.st	Tue Feb 03 17:36:57 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool2' }"
 
+"{ NameSpace: Smalltalk }"
+
 SimpleDialog subclass:#ColorEditDialog
 	instanceVariableNames:'red green blue hue light saturation colorNameHolder
 		htmlColorNameHolder colorDefinitionStringHolder previewBox
@@ -969,7 +971,7 @@
 
     |clr|
 
-    clr := Color name:colorNameHolder value ifIllegal:nil.
+    clr := Color name:(self colorName) ifIllegal:nil.
     clr isNil ifTrue:[
         ^ self
     ].