--- a/InterestConverter.st	Sat Apr 27 19:51:06 1996 +0200
+++ b/InterestConverter.st	Sat Apr 27 19:59:23 1996 +0200
@@ -23,7 +23,7 @@
 "
   #onChangeSend:to / #retractInterestsIn:
   interested in any change:
-
+                                                                        [exBegin]
     |p b|
 
     b := [Transcript showCr:'--> notification: point has changed'].
@@ -37,15 +37,13 @@
     Delay waitForSeconds:1.
     Transcript showCr:'sending change ...'.
     p changed.
-
-
-
+                                                                        [exEnd]
 
 
 
   #expressInterestIn:for:sendBack / #retractInterestIn:for:
   interested in a specific change:
-
+                                                                        [exBegin]
      |p b|
 
      b := [Transcript showCr:'the point changed'].
@@ -96,6 +94,7 @@
      Transcript showCr:'now changing #bar'.
      p changed:#bar.
      Transcript cr.
+                                                                        [exEnd]
 "
 !
 
@@ -158,5 +157,5 @@
 !InterestConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/InterestConverter.st,v 1.3 1996-04-25 16:43:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/InterestConverter.st,v 1.4 1996-04-27 17:59:23 cg Exp $'
 ! !