--- a/ColorMenu.st	Wed Sep 04 17:11:50 2002 +0200
+++ b/ColorMenu.st	Wed Sep 04 21:52:10 2002 +0200
@@ -750,7 +750,7 @@
 colorChanged
     |box clr|
 
-    box := builder componentAt: #PreviewBox.
+    box := self componentAt: #PreviewBox.
     box isNil ifTrue:[^ self "called before setup"].
 
     clr := self color.
@@ -913,5 +913,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.26 2001-11-19 15:39:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.27 2002-09-04 19:52:10 cg Exp $'
 ! !