--- a/Label.st	Tue Nov 11 15:03:03 1997 +0100
+++ b/Label.st	Fri Nov 14 15:37:43 1997 +0100
@@ -1265,6 +1265,25 @@
 
 !Label methodsFor:'initialization'!
 
+destroy
+    labelChannel notNil ifTrue:[
+        labelChannel removeDependent:self.
+        labelChannel := nil.
+    ].
+    foregroundChannel notNil ifTrue:[
+        foregroundChannel removeDependent:self.
+        foregroundChannel := nil.
+    ].
+    backgroundChannel notNil ifTrue:[
+        backgroundChannel removeDependent:self.
+        backgroundChannel := nil.
+    ].
+    super destroy
+
+    "Created: / 14.11.1997 / 13:48:52 / cg"
+    "Modified: / 14.11.1997 / 13:59:38 / cg"
+!
+
 fetchDeviceResources
     "fetch device colors, to avoid reallocation at redraw time"
 
@@ -1703,5 +1722,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.85 1997-11-03 17:18:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.86 1997-11-14 14:37:43 cg Exp $'
 ! !