--- a/View.st	Fri Mar 28 16:15:33 1997 +0100
+++ b/View.st	Fri Mar 28 20:57:22 1997 +0100
@@ -177,12 +177,16 @@
     |oldValue|
 
     oldChannel notNil ifTrue:[
-	oldChannel retractInterestsFor:self.
-	oldValue := oldChannel value.
+        oldChannel retractInterestsFor:self.
+        oldValue := oldChannel value.
     ].
-    newChannel onChangeSend:changeSelector to:self.
+    newChannel notNil ifTrue:[
+        newChannel onChangeSend:changeSelector to:self.
+    ].
     self perform:changeSelector.
     ^ newChannel
+
+    "Modified: 28.3.1997 / 20:42:01 / cg"
 ! !
 
 !View methodsFor:'accessing-menus'!
@@ -560,5 +564,5 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.57 1997-02-28 18:54:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.58 1997-03-28 19:57:22 cg Exp $'
 ! !