--- a/Block.st	Fri Dec 14 10:59:28 2001 +0100
+++ b/Block.st	Fri Dec 14 11:00:45 2001 +0100
@@ -1211,6 +1211,16 @@
         ^ self value:arg
     ].
     ^ self value
+
+    "
+     |block|
+
+     block := [ Transcript showCR:'hello' ].
+     block valueWithOptionalArgument:2.     
+
+     block := [:arg | Transcript showCR:arg ].
+     block valueWithOptionalArgument:2.     
+    "
 ! !
 
 !Block methodsFor:'exception handling'!
@@ -1892,6 +1902,6 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.110 2001-12-14 09:57:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.111 2001-12-14 10:00:45 cg Exp $'
 ! !
 Block initialize!