--- a/SharedPool.st	Tue Feb 03 15:21:09 2015 +0100
+++ b/SharedPool.st	Tue Feb 03 15:21:24 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#SharedPool
 	instanceVariableNames:''
 	classVariableNames:''
@@ -179,7 +181,7 @@
 keysAndValuesDo:aBlock
     "enumerate all keys (= pool var names) with their value"
 
-    ^ self keys do:[:key | aBlock value:key value:(self at:key)]
+    self keys do:[:key | aBlock value:key value:(self at:key)]
 
     "Created: / 06-03-2012 / 17:07:41 / cg"
 !
@@ -187,7 +189,7 @@
 keysDo:aBlock
     "enumerate all keys (= pool var names)"
 
-    ^ self keys do:aBlock
+    self keys do:aBlock
 
     "Modified (comment): / 06-03-2012 / 17:08:54 / cg"
 ! !
@@ -270,10 +272,10 @@
 !SharedPool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.22 2013-08-16 17:43:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.23 2015-02-03 14:21:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.22 2013-08-16 17:43:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.23 2015-02-03 14:21:24 cg Exp $'
 ! !