--- a/Monitor.st	Thu Apr 09 14:00:34 1998 +0200
+++ b/Monitor.st	Wed Apr 22 20:32:18 1998 +0200
@@ -60,6 +60,7 @@
 
 examples
 "
+						[exBegin]
 	|mon p1 p2 p3|
 
 	mon := Monitor new.
@@ -96,8 +97,7 @@
 		 mon exit
 	     ]
 	] fork.
-
-
+						[exEnd]
 "
 ! !
 
@@ -220,5 +220,5 @@
 !Monitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Monitor.st,v 1.8 1998-01-12 13:24:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Monitor.st,v 1.9 1998-04-22 18:32:18 cg Exp $'
 ! !