--- a/Behavior.st	Fri Jul 10 00:37:01 2015 +0200
+++ b/Behavior.st	Sun Jul 12 00:01:24 2015 +0200
@@ -2035,9 +2035,7 @@
 allInstancesDo:aBlock
     "evaluate aBlock for all of my instances"
 
-    ObjectMemory allInstancesOf:self do:[:anObject |
-	aBlock value:anObject
-    ]
+    ObjectMemory allInstancesOf:self do:aBlock.
 
     "
      StandardSystemView allInstancesDo:[:v | Transcript showCR:(v name)]
@@ -5327,10 +5325,10 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.381 2015-06-05 16:09:05 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.381 2015-06-05 16:09:05 stefan Exp $'
+    ^ '$Header$'
 ! !