--- a/View.st	Mon Jun 23 17:29:03 2008 +0200
+++ b/View.st	Mon Jun 23 17:29:36 2008 +0200
@@ -767,15 +767,27 @@
         model removeDependent:self.
         model := nil.
     ].
-    visibilityChannel notNil ifTrue:[visibilityChannel removeDependent:self. visibilityChannel := nil].
-    enableChannel notNil ifTrue:[enableChannel removeDependent:self. enableChannel := nil].
-    foregroundChannel notNil ifTrue:[foregroundChannel removeDependent:self. foregroundChannel := nil].
-    backgroundChannel notNil ifTrue:[backgroundChannel removeDependent:self. backgroundChannel := nil].
+    visibilityChannel notNil ifTrue:[
+        visibilityChannel retractInterestsFor:self.
+        visibilityChannel removeDependent:self. visibilityChannel := nil
+    ].
+    enableChannel notNil ifTrue:[
+        enableChannel retractInterestsFor:self.
+        enableChannel removeDependent:self. enableChannel := nil
+    ].
+    foregroundChannel notNil ifTrue:[
+        foregroundChannel retractInterestsFor:self.
+        foregroundChannel removeDependent:self. foregroundChannel := nil
+    ].
+    backgroundChannel notNil ifTrue:[
+        backgroundChannel retractInterestsFor:self.
+        backgroundChannel removeDependent:self. backgroundChannel := nil
+    ].
     super release.
 ! !
 
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.78 2008-06-20 09:52:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.79 2008-06-23 15:29:36 cg Exp $'
 ! !