--- a/Label.st	Fri Mar 28 17:36:11 1997 +0100
+++ b/Label.st	Fri Mar 28 20:56:30 1997 +0100
@@ -842,8 +842,12 @@
     |prev|
 
     prev := backgroundChannel.
-    backgroundChannel := aValueHolder.
-    self setupChannel:aValueHolder for:#backgroundChannelChanged withOld:prev 
+    aValueHolder ~~ prev ifTrue:[
+        backgroundChannel := aValueHolder.
+        self setupChannel:aValueHolder for:#backgroundChannelChanged withOld:prev 
+    ]
+
+    "Modified: 28.3.1997 / 20:43:39 / cg"
 !
 
 foregroundChannel
@@ -856,8 +860,12 @@
     |prev|
 
     prev := foregroundChannel.
-    foregroundChannel := aValueHolder.
-    self setupChannel:aValueHolder for:#foregroundChannelChanged withOld:prev 
+    aValueHolder ~~ prev ifTrue:[
+        foregroundChannel := aValueHolder.
+        self setupChannel:aValueHolder for:#foregroundChannelChanged withOld:prev 
+    ]
+
+    "Modified: 28.3.1997 / 20:43:17 / cg"
 !
 
 labelChannel
@@ -1644,5 +1652,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.75 1997-03-01 23:17:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.76 1997-03-28 19:56:30 cg Exp $'
 ! !