--- a/ProtocolAdaptor.st	Wed Aug 30 19:54:43 1995 +0200
+++ b/ProtocolAdaptor.st	Sat Sep 09 04:30:16 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/ProtocolAdaptor.st,v 1.5 1995-08-29 17:44:42 claus Exp $
+$Header: /cvs/stx/stx/libview2/ProtocolAdaptor.st,v 1.6 1995-09-09 02:29:58 claus Exp $
 "
 !
 
@@ -266,11 +266,19 @@
 subjectChannel:aValueHolder
     |oldChannel|
 
+    subjectChannel notNil ifTrue:[
+	subjectChannel removeDependent:self
+    ].
     oldChannel := subjectChannel.
     subjectChannel := aValueHolder.
+    subjectChannel notNil ifTrue:[
+	subjectChannel addDependent:self
+    ].
     oldChannel notNil ifTrue:[
 	self changed:#value.
     ].
+
+    "Modified: 6.9.1995 / 01:19:27 / claus"
 !
 
 subjectChannel