2007-01-23  Stephen Compall  <address@hidden>

	* kernel/Dictionary.st: Use aBlock directly in associationsDo:.
	* kernel/AbstNamespc.st: Likewise with subspacesDo:.

--- orig/kernel/AbstNamespc.st
+++ mod/kernel/AbstNamespc.st
@@ -409,7 +409,7 @@
 
 subspacesDo: aBlock
     "Invokes aBlock for all direct subspaces."
-    self subspaces do: [ :subclass | aBlock value: subclass ]
+    self subspaces do: aBlock
 !
 
 withAllSubspaces


--- orig/kernel/Dictionary.st
+++ mod/kernel/Dictionary.st
@@ -287,7 +287,7 @@
 
 associationsDo: aBlock
     "Pass each association in the dictionary to aBlock"
-    super do: [ :assoc | aBlock value: assoc ]
+    super do: aBlock
 !
 
 keysDo: aBlock