--- a/Label.st	Wed Sep 16 21:40:10 2009 +0200
+++ b/Label.st	Fri Sep 18 10:31:46 2009 +0200
@@ -1257,12 +1257,16 @@
 
 !Label methodsFor:'change & update'!
 
+getLabelFromLabelChannel
+    self label:(labelChannel value).
+!
+
 update:something with:aParameter from:changedObject
     "the MVC way of changing the label ..."
 
     changedObject notNil ifTrue:[
         changedObject == labelChannel ifTrue:[
-            self label:(labelChannel value).
+            self getLabelFromLabelChannel.
             ^ self
         ].
 
@@ -1796,7 +1800,8 @@
     "redraw my label"
 
     shown ifTrue:[
-	self drawWith:fgColor and:bgColor
+        self clear.
+        self drawWith:fgColor and:bgColor
     ]
 ! !
 
@@ -1858,5 +1863,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.139 2009-03-05 17:50:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.140 2009-09-18 08:31:46 cg Exp $'
 ! !