--- a/extensions.st	Fri Aug 12 18:15:12 2016 +0200
+++ b/extensions.st	Mon Aug 15 11:09:08 2016 +0200
@@ -908,22 +908,23 @@
 
 onChangeSend:aSelector to:anObject
     "arrange for aSelector to be sent to anObject whenever the receiver
-     changes."
+     changes.
+     Use retractInterestsFor: in case you are no longer interested"
 
     "/ for now, use an interestConverter, which is somewhat less efficient.
     "/ In the future, a more intelligent DependencyCollection class is planned for
 
     ((self interests ? #())
-	contains:[:anInterest |
-	    (anInterest isInterestConverter)
-	    and:[ anInterest destination == anObject
-	    and:[ anInterest selector == aSelector]]
-	])
-	    ifTrue:[^ self].
+        contains:[:anInterest |
+            (anInterest isInterestConverter)
+            and:[ anInterest destination == anObject
+            and:[ anInterest selector == aSelector]]
+        ])
+            ifTrue:[^ self].
 
     self addInterest:(InterestConverter
-			  destination:anObject
-			  selector:aSelector)
+                          destination:anObject
+                          selector:aSelector)
 
     "
      |p b|